








O importante, numa loja de informática, 

é o número de opções que ela oferece. 

É a equipe técnica de que dispõe, 

para uma orientação segura 

na escolha do equipamento e do programa 














mais adequados ao seu caso 


pessoal, ou ao de sua Empresa. 

Por isso a Computerland 

é importante para LS 
sua decisão. 


29 ABR 1991 
Consulte o nosso cardápio: 
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1 4 RASTREANDO 
VARIÁVEIS - Com este 
programa utilitário de 
Rudolf Horner Junior, que 
permite listar as variáveis de 
programas em BASIC 
Applesoft, abre-se um novo 
espaço em MS para micros da 
linha Apple. 


SIMULE UM PIANO EM 

SEU TECLADO - É fácil 
simular um piano e até criar 
efeitos sonoros especiais 
com este programa de Newton 
Braga Junior para 
equipamentos compatíveis 
com o TRS-80. 


PONHA MÚSICA NO SEU TK 
- Programa de Cleuton de Melo Júnior. 


12 MÚSICA, MAESTRO! - Programa de 
Roberto Quito de Sant'Anna. 


1 DÍGITOS VERIFICADORES - Artigo de 
6 Eraldo Souza Rocha. 


2 4 DÓ, RÉ... MICRO - Programa de 
Thelma V. T. da Fontoura. 


28 ABRINDO ESPAÇO NA TELA - Artigo 
de Renato Degiovani. 


O SOM (MAIS HARMÔNICO) DE SEU 
APPLE - Programa de Evandro 
Mascarenhas de Oliveira. 


3 4 JAZZ CIBERNÉTICO - Programa de 
Marcus Brunetta. 


ACERTE NA LOTECA COM O D-8000 
- Programa de Ivo D'Aquino Neto. 


4 OPERAÇÕES COMPLEXAS EM BASIC 
- Programa de Valdir Aguilera. 


P&D Sistemas Eletrônicos S.A, 


(CRIPTOANÁLISE) 
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42 CRIPTOGRAFIA, UMA 
ARMA CONTRA OS 
PIRATAS? - I - Já usadas no 
tempo dos romanos, as técnicas 
criptográficas adquirem 

nova dimensão na era 

do computador. Artigo de 
Candido Fonseca da Silva. 


INIMIGO 


5 2 O MICRO DÁ A 
LARGADA! - Neste 

perigoso circuito de Fórmula I, 

é preciso ser um ás do 

volante para não sofrer 

acidentes. Programa de Renato 

Degiovani para os micros 

da linha Sinclair. 





5 O ERRO DE TRUNCAMENTO EM 
BASIC - Artigo de Akeo Tanabe. 


APLICAÇÕES EM SANEAMENTO 
5 8 BÁSICO - Programas de Hílton Felício 


dos Santos e Antonio Carlos 
Franco Zuccolo. 


6 6 FLIP: CAPTURE O ADVERSÁRIO 
- Programa de Honório Lisboa Neto 
7 O SISTEMA DE CÓDIGO DE BARRAS 
- Artigo de Alwin Wilhelm Elbern. 
7 MINHAS PIORES PARTIDAS DE 
XADREZ - Programa de L. C. Lobato. 


78 MICRO SISTEMAS, ANO II - Índice da 
Revista, dos números 13 a 24. 


86 CURSO DE ASSEMBLER - VIII 

9 DATA PROVÁVEL DE PARTO 
- Programa de Adauto Barbosa. 
PARABÉNS NO DIA CERTO 


93 - Programa de Luiz Gonzaga de 
Alvarenga. 


“E EE ES RS (O O E CER o mt, 


4 EDITORIAL 32 convERsÃO 69 MENSAGEM DE ERRO 
8 carTAS 38 EQUIPAMENTOS: EGO SÉ Dicas 

10 xaprEz 50 ms RESPONDE 90 CLASSIFICADOS 

18 Livros 54 cursos E CLUBES 

20rrs 68 mm Ee 94 LOJAS: COMPUTCHÊ 
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e A Associação Comercial do Rio de Ja- 
neiro incentivou a criação de um Conse- 
lho Permanente de Informática que, se- 
gundo José Maria Sobrinho, Presidente da 
Assespro Nacional e também do Conse- 
lho, servirá como uma assessoria cons- 
tante à Associação. 

Durante a posse do Conselho, realiza- 
da em 05 de agosto passado, o Secretário 
de Informática, Joubert de Oliveira Brizi- 
da, proferiu discurso no qual relacionou 
as três principais razões pa: existência 
de uma Política de Informática, nos mol- 
des da que vem sendo encaminhada hoje. 
* Acontece que a Informática não pode 
ser considerada um departamento estan- 
que da atividade econômica, algo que pos- 
sua uma política independente. 

Ao contrário, conforme seu peso au- 
menta, conforme as repercussões desta 
tecnologia se difundem por entre todos os 
aspectos de nossa vida social, torna-se 
imprescindível que política de informática 
e política econômica geral cada vez mais 
se confundam, se unitiquem, principal- 
mente no que diz respeito à coerência. 
Senão, imaginemos: a política particular 
incentiva as exportações; a política geral e 
seus intricados aspectos cambiais prati- 
camente tornam-na impossível. A política 
particular busca a substituição das impor- 
tações; a geral restringe a importação dos 
insumos dos bens que pretendem substi- 
tuir as importações. A política particular 
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luta por uma autonomia; a política geral 
compromete-se, trazendo em seu bojo 
pressões que dificultam bastante qualquer 
tentativa de resguardo nacional. 

* Justamente a primeira razão apontada 
pelo Coronel Brízida foi a econômica, i.e., 
a substituição das importações, uma vez 
que a tecnologia é o segundo item de 
nossa pauta de importações. A Abicomp, 
associação dos fabricantes da área, por 
sua vez, começa a preocupar-se seriamen- 
te com as restrições impostas à importa- 
ção dos componentes necessários à fabri- 
cação dos equipamentos, principalmente 
na indústria de periféricos. Se a situação 
prosseguir, resta a imposição de uma ace- 
leração na esgala de nacionalização do 
produto. Isto envolve muito investimento, 
muita pesquisa e, sobretudo, terá um 
preço. 

* A segunda razão apontada pelo Secre- 
tário é estratégica. Tecnologia, disse ele, é 
fundamental para a existência de um siste- 
ma competitivo e dinâmico, e também pa- 
ra o sistema de defesa, este da esfera de 
Segurança Nacional. 

A criação do sistema competitivo de- 
pende de outros fatores para ser efetivada, 
tanto na área interna da informática quan- 
to nas demais, uma vez que estamos con- 
siderando aqui a informática como um 
bem/serviço de suporte. A criação depen- 
de do fator preço. Preço pensado num re- 
ferencial de competitividade e pertorman- 
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ce externa. Preço pensado ainda mais sob 
a luz de uma análise do mercado interno. 
O grande mercado é o Brasil, e temos que 
pensar como ele ficará depois do dilúvio. 
* Uma maior preocupação com o merca- 
do interno está implícita, inclusive, na ter- 
ceira força motriz da Política de Informá- 
tica, a formação de uma cultura nacional, 
segundo Brízida condicionada ao nível de 
capacitação tecnológica do país. Neste 
ponto, qualquer que seja o argumento, 
existe um consenso: a reserva de mercado 
criou uma massa crítica realmente capaci- 
tada a levar adiante o processo de absor- 
ção e desenvolvimento da informática. 

* Reconhecendo as “razoáveis necessida- 
des de atualização do mercado, sem con- 
tudo descaracterizar a iniciativa nacional” 
o Secretário de Informática disse ser “im- 
possível assimilar tecnologia através da 
compra de projetos industriais” 

Difícil realmente é, mas tudo depende. 
Depende de quem compra; depende de 
quem vende; depende do que se entende 
por assimilar tecnologia; depende de co- 
mo se paga. Fundamentalmente depende 
do preço. A opção de compra de tecnolo- 
gia tem um preço. A autonomia tem outro. 
E uma equação que trata de equilibrar o 
preço pago pela nação e o preço pago 
pelo usuário. 





Ada Dactgom 









e Para evitar possíveis problemas futu- 
ros, informamos que a firma Spartime e 
o sr. Eloi Jora Soares não mais repre- 
sentam a revista MICRO SISTEMAS para 
fins de venda de assinaturas. 
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Programas para o seu 
TK82-C e TK85 





LABIRINTO 
TRIDIMENSIONAL - 16K 
E ra en as 


pectiva. Em. mo 
pair aunílio do com. 


6K 

Este jogo apresenta o tabuleiro e as pe. 
no video. Pormite a escolha de até 

“do dificuldade O programa tor 

nece 

fes a posção dot Ele podera 
a a as. re 

eamendar ua jogada 








Transforme seu TK em um verdadeiro piano eletrônico e reviva Beethoven em ritmo cibernético. 





Ponha música 


em seu TK 





Cleuton de Melo Júnior 








Parando para pensar um pouco, reparamos que convivemos com a violência 
o dia inteiro, então, por que só fazermos programas de guerra, tiros e naves 
atacantes? Para sair um pouco desta rotina, aqui está um programa que mostra a 


real capacidade do seu TK82-C (ou similar). 


Carregue-o, digite RUN 110, seguido de NEW LINE, e o programa lhe 


1 REM 01234567890123456789012 
345678901234567890123454 





"5" Goro 9990 
10 PRINT "ENTRE COM SUA MUSICA 


15 INPUT A$ 

20 LET A$=A$+"FFP" 

25 LET 0=16567 

30 FOR I=1 TO LEN A$-1 STEP 2 

40 POKE O, (CODE A$(I)-28) *16+C 
ODE A$(I+1)-28 

50 LET 0=0+1 

60 NEXT I 

70 FAST 

75 LET K=USR 16546 

80 CLS 

81 SLOW 

82 PRINT TAB 2;"TECLE <1l> P/TO 
CAR NOVAMENTE" 

83 IF INKEY$="" THEN GOTO 83 

84 IF INKEY$="S" THEN GOTO 30 

85 PRINT TAB 2;"TECLE <2> P/ O 
UTRA MUSICA” 

86 IF INKEY$="" THEN GOTO 86 

87 IF INKEY$="S" THEN GOTO 245 

88 IF INKEY$="1" THEN GOTO 70 

90 PRINT AT 10,12;"FIM” 

99 STOP 

100 SAVE "PIANO" 

110 PRINT "PIANO ELETRONICO" 
115 PRINT "-======—= ===... g 
120 PRINT ,,,, "CADA SOM CORRESP 
ONDE A UM VALOR HEXADECIMAL. " 
130 PRINT ,,"PARA OBTER A MELOD 
IA DESEJADA, VOCE DEVE TECLAR N 
A LINHA 10 (10 LET A$=) OS CO 
DIGOS HEXA DE CADA SOM, QUANDO A 
MAQUINA PEDIR" 

140 PRINT ,,"OS SONS TEM A DURA 
CAO IGUAL E PARA OBTER NOTAS M 


ensinará como usá-lo. 


AIS LONGAS REPITA O CODIGO. I 
NTERVALOS SAO OBTIDOS COM O CODI 
Go 00." 

145 PRINT AT 21,0;"TECLE NEW LI 
NE P/CONT." 

150 IF INKEY$="" THEN GOTO 150 

155 cLs 

160 PRINT " NOTA 

2 ESCALA" 

165 DIM B$(2,24) 

170 LET B$(1)="FOESD8CFC3B8ADAS 
9C948B83" 

175 LET B$(2)="7A736B67605A5651 
4B484440" 

180 LET C$="C C+;D-D D+;E 
-E F F+;G-G G+;A-a A 
+;B-B a 

190 FOR I=1 TO 12 

200 PRINT C$(1*5-4 TO I*5);TAB 
11;B$(1,1*2-1 TO I*2);TAB 24;B$( 
2,1*2-1 TO 1*2) 

210 NEXT I 

220 PRINT ,, "COMO EXEMPLO, TEMO 
S MUSICAS NAS LINHAS 1000 E 1010 
« SE VOCE QUERTOCA-LAS, RESPONDA 

POSITIVAMENTEAS PERGUNTAS, MAS 
ANTES AUMENTE O VOLUME DA TV." 

230 PRINT AT 21,0;"P/CONTINUAR: 
NEWLINE 

240 IF INKEY$="" THEN GOTO 240 

245 CLS 

246 PRINT “TECLE." 

247 PRINT TAB 5;"<S> P/OUVIR OS 

EXEMPLOS OU" 

248 PRINT TAB 5;"<N> P/COMPOR S 
UA MUSICA" 

249 IF INKEY$="" THEN GOTO 249 

250 IF INKEY$="N” THEN GOTO 10 

251 IF INKEY$<>"S" THEN GOTO 24 
9 

255 PRINT 

260 PRINT "TECLE:" 

262 PRINT TAB 5;"<1l> P/ ""PARAB 
ENS"" OU" 

264 PRINT TAB 5;"<2> P/ ""SINFO 
NIA""" 


1 ESCALA 


270 IF INKEY$="" THEN GOTO 270 
280 IF INKEY$="1" THEN GOTO 100 
0 

290 IF INKEY$="2" THEN GOTO 101 
0 

300 GoTo 270 

999 REM PARABENS 

1000 FAST 

1005 LET A$="B8B800B8B800A5A500B 
888008B8B00949494940000B8B800B80 
0ASAS00B8B8007A7A008B8B8B8B00BBB 
800B8005ASASA6B6B6B00 BB8B8B00949 
400A5A5A500676700676B6B008B8B007 
A7A00BBBB8B" 

1008 goto 20 

1009 REM QUADRAGESIMA SINFONIA 
1010 FAST 

1011 LET A$="B8C300C3C30088C300C 
3C300B8C300C3C37A7A7A007A8394940 
094A5B8B800B8C3D8D800D8D8D800C3D 
800D8D8C3D800DBDB00C3DB00DBD8838 
3830083949C9C009CB8C3C300C3DBFOF 
000F0F0007A830083836B6B9C9C8B3839 
494C3C3007A830083836B6B9C9C83839 
4947A7A007A8394ASB8B8C3C3BBBB" 
1019 GOTO 20 

9990 LET A$="7B3D20FDC906EOSEAFB 
B280CDBFECD8240D3FFCD824018050E0 
50D20FD10E8C9218740CD8740237EFEF 
F20F7C9" 

9991 LET 0=16514 

9992 FOR I=1 TO LEN A$-1 STEP 2 
9993 POKE O, (CODE A$(I)-28) *16+C 
ODE A$(1+1)-28 

9994 LET 0=0+1 

9996 NEXT 1 

9997 SLOW 

9998 CLS E 
9999 Goro 110 





Cleuton Sampaio de Melo Júnior é tecnólogo 
em Processamento de Dados pela Sociedade 
de Ensino Superior e Assessoria Técnica — 
SESAT/RJ. Trabalha há cinco anos em PD, 
Atualmente é programador no BANERJ. 





MICRO SISTEMAS, setembro/83 





DANCING DEMON 


Sysdata 


Você só descobre o quanto precisa de um Micro-Com- pê Microcomputador pessoal 
putador JR da Sysdata depois que o conhece de perto, 

Você vai ter certeza de que fez um ótimo negócio ao 
adquirí-lo assim que o colocar na sua empresa ou na sua 
casa. 

O JR da Sysdata é rápido, é versátil, é compacto. 
APLICAÇÕES: 

Contabilidade, controle de contas a pagar, controle de 
contas a receber, folha de pagamento, controle de esto- 
que, controle de clientes, relatório de clientes, mala direta, 
cálculos de orçamentos financeiros,controle de processos 
industriais, cálculos de engenharia, cálculos de estatísti- 
cas, funções matemáticas, funções lógicas em cadeia de 
caracteres (STRINGS), gráficos, jogos animados, progra- 
mas educacionais. 

O JR PERMITE AINDA: 

O acesso a grandes sistemas de computação, a comuni- 
cação entre os departamentos de Empresa, efetuar pro- 
gramas específicos para cada Empresa. 

E, como se não bastasse, ele é o Micro-Computador de 
menor preço do mercado. 

Com todas as qualidades que tem, o JR da Sysdata nem 
precisava ser tão econômico. Mas é. 

Afinal, ele é o mais completo Micro-Computador de sua 








eração. Rua Jorge Duprat Figueiredo, 647 - CEP 04361 
geraçã S ysal afã Vila Santa Catarina - São Paulo - SP 
Inclusive no preço. a AV) DULAU UOL cones: 5421122 - 531-0390 - 531.0410 
Você pode testar estas e outras qualidades do JR em ; Telex (011) 23579 


qualquer dos nossos revendedores. 





À 
REVENDEDORES: SÃO PAULO: Capital - AD-Data = 864.8200 - ADP System = 227-6100 - Bucker = 881-7995 - Compushop = 212-9004/210-0187 - Compute = 
852-8290/257-3952 - Computerland 258-3954/1573 - Foto Léo = 35-7131 - Guedes = 289-9051 - Interface = 852-5603 - Lema = 210-5929 - Mappin = 
258-4411/258-7311/9358 - Microrei = 881-0022 - Microshop = 852-5603 - Miprotec = 289-4941 - Plantel = 543-9653 - Runners = 68-3779 - Sacco = 814-0598 - 
Servimec = 222-1511 - Sistemac = 282-6609 - Sos = 66-7656 - Campinas - Computer House = (0192) 852-5855 - Microtok = (0192) 32-4445 - São José do Rio 
Preto - Compusys = (016) 635-1 195 - Seno = (016) 32-0600 - Mogi Guaçu - Guaçumaq = (019) 261-0236 - Taubaté - Ensicom = (0122) 33-2252 PERNAMBUCO - 
Recife - Elogica = (080) 241-1162/241-1149 GOIÁS - Goiânia - Casa do Micocomputador = (062) 223-1165 - Grupom (062) 225-8226 - MATO GROSSO DO SUL - 
Campo Grande - DAL = (067) 382-6487 - Vídeo Computadores = (067) 321-4220 BRASÍLIA - Capital - Compushow = (061) 273-2128 - Digitec = (061) 225-4534 

RIO DE JANEIRO - Capital -Clap = (021) 288-0734/284-5649 - Computique = (021) 267-1093 -Kristian = (021) 252-9057. - Micromaq = (021) 222-6088 - Petrópo- 
fis - Foto Ótica = (0242) 42-1393/43-6120 - PARANÁ - Londrina - Shop Computer = (0432) 23-9674 - Umuarama - CBM Comercial = (0446) 23-2233 - Curitiba 

Micro System = (041) 232-3533 - Ponta Grossa - Grupo Data Memory = (0422) 24-6191 - PARAÍBA - João Pessoa - Medusa = (083) 221-6743 CEARÁ - Fortaleza 

Siscomp = (085) 244-4691 - MINAS GERAIS - Belo Horizonte - Compucity = (031) 226-6336 - Kemitron = (031) 225-0644 - Pró Informática = (031) 337-8792 

SANTA CATARINA - Blumenau - Projesul = (0473) 22-3848 - Florianópolis - Castro = (0482) 22-6933 Infotec = (0482) 23-4777 - RIO GRANDE DO SUL - Novo 
Hamburgo - Micromega = (0512) 93-4721 - Porto Alegre - Advancing = (0512) 26 1194/26-0194 - Digital = (0512) 40-1998/24-1411 - Microsis = (0512) 22-9782 

Sistematica = (0512) 21-0732/21-0835 





“cartas 
SIDI 


O sorteado deste mês, que receberá 
gratuitamente uma assinatura de um ano 
de MICRO SISTEMAS, é Eduardo Scha- 
drack, de Santa Catarina. 


MANUAL DO D-8001 


(...) Sou'o feliz proprietário de uma 
calculadora — HP-41C, bem como de 
um Dismac D-8001, equipado com 
impressora. Pena que o “manual de 
BASIC” deste último seja ridículo, 
considerando o seu porte e as suas po- 
tencialidades (por exemplo, o manual 
do TK82-C, meu equipamento ante- 
rior, era muito mais completo em rela- 
ção ao D-8001). Várias funções exis- 
tentes no D-8001 não são referidas 
como, por exemplo, a função INKEY. 
Só foi possível saber o funcionamento 
de várias funções do equipamento atra- 
vés de programas e artigos publicados 
em MICRO SISTEMAS. 

Outra coisa: acima do teclado redu- 
zido existem quatro teclas (Fl a F4) 
completamente inúteis, só servem para 
mostrar alguns caracteres especiais. Es- 
crevi para a Dismac relatando isto mas 
até agora não recebi resposta (a carta 
foi encaminhada junto com o cartão 
de inscrição no Clube dos Usuários, 
sendo possível que tenha se extravia- 
do). 

Cabe dizer ainda que o manual se 
refere ao equipamento D-8000 (com 
gravador embutido). No mínimo, acho 
que a Dismac deveria publicar um “su- 
plemento” sobre o D-8001, enfatizan- 
do, principalmente, as características 
de impressão — aliás este foi o princi- 
pal motivo que me fez trocar para o 
D-8001. O manual não mostra e nem 
faz referências à impressão de caracte- 
res minúsculos. Só consegui descobrir 
por acaso que a impressora imprime le- 
tras minúsculas quando se tecla 
SHIFT, por sinal, o vídeo também não 
mostra esse caracteres quando se acio- 
na o código ASCII correspondente. 

Para atenuar um pouco este último 
aspecto, em favor da Dismac, deve ser 
dito que recebi também o manual da 
impressora em Inglês, o qual ainda não 
pude ler com a devida atenção. Mas, de 
qualquer forma, sempre ficará a dúvi- 
da: será que todas as características da 
impressora (que até agora tem sido 
excelente) são compatíveis com o 


D-8001 e vice-versa, ou existem coisas 
que um faz e o outro.não pode fazer? 
Digo isso porque a impressora não é 
fabricada pela Dismiac, como dá a en- 
tender o manual da mesma (...). 
Paulo A. L. Borges 

Porto Alegre — RS 


Como é habitual, Paulo, mandamos 
as suas observações para a Dismac que 
nos remeteu a seguinte resposta: 

“Admitimos que existem funções 
que não são explicadas no manual, 
porém 99% das instruções existentes 
no BASIC nível II (linguagem utilizada 
pela família D-8000) estão no manual, 
e bem explicadas. 


As instruções que não são menciona- 
das no manual são apenas três: INKEY 
$, USR e VARPTR. As outras instru- 
ções que não são mencionadas (as do 
APÊNDICE A, de onde o leitor deve 
ter tomado como base para fazer tais in- 
dagações) não existem no BASIC nível 
HH, portanto não há como explicar uma 
instrução que não funciona na lingua- 
gem utilizada e, portanto, nos micros 
da família D-8000. 


As famílias até aqui têm como ori- 
gem o APÊNDICE A, porque na hora 
da verificação da prova do manual, por 
um lapso esquecemos, e lamentamos, 
de retirar estas instruções inexistentes 
no BASIC nível Il e a introdução das 
três instruções que faltavam. 


Com relação às “teclas inúteis”, 
gostaríamos de ressaltar que elas não 
são inúteis. Estas quatro teclas foram 
introduzidas recentemente no equipa- 
mento e ainda não houve tempo hábil 
para uma utilização específica. Encon- 
tra-se em estudos a possibilidade de 
gravação de programas aplicativos em 
EPROM, que seriam acessados através 
de uma dessas quatro teclas. Para não 
ter que carregar um programa a toda 
hora, o que o leitor tem que admitir 
que é um processo lento, este progra- 
ma seria acessado, por exemplo, pela 
tecla F2. 


Percebe-se então que tudo que o 
equipamento possui tem sua utilidade. 
A Dismac, sempre procurando ajudar 
ao máximo o usuário, fez o lançamen- 
to deste teclado, momentaneamente 
sem função, apenas para que depois de 
lançada esta novidade, o usuário não 
tenha um acréscimo de preço no custo 
do equipamento para a adaptação des- 
se novo recurso, o que não seria inte- 
ressante para o usuário em dias de crise 
econômica. Como se vê, a Dismac só 
está pensando no bom atendimento ao 
cliente. 

Quanto à correspondência enviada à 
Dismac pelo leitor, lamentamos infor- 
mar que não a recebemos. 


Ainda com referência às críticas de 
que o manual não é do D-8001 e sim 
do D-8000, queríamos esclarecer que o 
manual é o mesmo para ambos, porque 
essa nomenclatura é apenas um jogo 
comercial. A única diferença que exis- 
te de um micro para o outro é a adição 
de uma impressora. 

A questão de se publicar um suple- 
mento de impressão seria inviável, 
porque o D-8001 não funciona com 
apenas um modelo de impressora. Este 
suplemento nem teria sentido porque 
se são de diferentes modelos, é eviden- 
te que cada uma tenha suas particulari- 
dades e elas estão nos seus respectivos 
“manuais da impressora”. 

Quanto à compatibilidade das im- 
pressoras ao D-8001, é evidente que 
são compatíveis, pois não teria sentido 
vender uma impressora que não fosse 
compatível com o equipamento. 

Quanto a recursos de impressão, 
cabe ao leitor ler o “manual da impres- 
sora” porque é lá que estão relacionados 
os recursos da mesma. Aliás nao é ne- 
cessário nem ler, porque a maioria do 
conteúdo desses manuais são tabelas. 
Agora o que o leitor necessita fazer é 
assimilá-las. 

Com relação à geração de caracteres 
minúsculos no vídeo, o leitor pode ma- 
nuseá-los através da instrução POKE e 
não CHR$.” 

Valdomiro Colovati 
Gerente Nacional de Vendas da Dis- 
mac 


MS AGRADECE 


Considero a revista MICRO SISTE- 
MAS muito boa. Mas a capa da revista 
é muito pobre, pois é feita de material 
muito fino. O fato da revista usar en- 
cadernamento com grampos contribui 
para que a capa se desprenda facil- 
mente da mesma e, em seguida, as fo- 
lhas. 

Seria bem melhor se fosse feita uma 
capa com papel mais consistente e que 
fosse adotado outro tipo de encader- 
namento. 

João Luiz Baroni 
Curitibanos-SC 


Parabéns pela excelente qualidade 
da revista MICRO SISTEMAS, fruto, 
sem dúvida, de grandes esforços que, 
partindo de uma edição de apenas 40 
páginas, em menos de um ano e meio 
chegou ao que é hoje: uma reconheci- 
da publicação. Prova isso a maciça co- 
laboração dos anunciantes que, como 
se vê, confiam no êxito da revista. 
Juan Jorge Thierer 
São Paulo — SP 
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Gostaria de parabenizá-los pelo ex- 
celente nível e qualidade da revista, o 
que demonstra que por detrás da mes- 
ma se encontra uma equipe responsá- 
vel e qualificada, proporcionando ar- 
tigos e publicações que vêm de encon- 
tro às curiosidades, necessidades e an- 
seios de todos aqueles ligados ao fas- 
cinante mundo da microcomputação. 
Fredi J. Moser 
Joinville — SC 


Sou leitor dessa - revista desde os 
seus primeiros números e só tenho a 
parabenizar a equipe pelo excelente 
trabalho realizado e a evolução cons- 
tante da revista. 

Adagenor L. Ribeiro 
Belém — PA 


HP-19C 


Sou proprietário de uma calculado- 
ra HP-19C (calculadora científica 
programável com memória constante e 
impressora), adquirida em 1980 nos 
Estados Unidos. Após três anos de 
bons serviços, está agora defeituosa. 
Inicialmente entrei em contato com a 
fábrica da HP em São Paulo. Esta, 
contudo, não me respondeu. Então 
entrei em contato com um revendedor 
autorizado da HP em São Paulo (J. 
Heger &Cia.); este me informou que a 
fábrica não poderia fazer o conserto 
aqui no Brasil e que eu deveria remeter 
a calculadora aos EEUU, O mesmo 
revendedor aproveitou para enviar-me 
o catálogo de outras calculadoras! 

Pergunto-vos agora: que espécie de 
fábrica é a HP que, no momento de 
vender seus produtos, afirma em seus 
manuais que dá assistência técnica em 
todo o mundo, mas quando esta se faz 
necessária a mesma inexiste. 

Eduardo Schadrack 
Blumenau-SC 


Remetemos seu desabafo para a 
Hewlett Packard, que nos respondeu: 
“A Hewlett Packard, como uma das 
empresas líderes do mercado mundial 
de eletrônica, dedica substancial quan- 
tidade de recursos à pesquisa e desen- 
volvimento de novos produtos, os 
quais são inicialmente revendidos nos 
Estados Unidos. 

Por razões mercadológicas, estraté- 
gicas ou mesmo de restrições locais, 
nem todos os produtos desenvolvidos e 
revendidos nos Estados Unidos são 
introduzidos em todos os mais de 70 
países onde a HP mantém escritórios 
de Vendas e Assistência Técnica. 

É o caso da calculadora HP-19C. 
Este produto nunca foi comercializado 
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pela HP do Brasil. Não dispomos, aqui, 
de peças de reposição ou treinamento 
técnico específico para proporcionar 
Assistência Técnica adequada para este 
modelo de calculadora. Suporte inte- 
gral de Assistência Técnica está dispo- 
nível no país onde a mesma foi adqui- 
rida. 

Gostaríamos de solicitar, de todo 
modo, que V. Sa. nos contatasse 
diretamente, conforme sua conveniên- 
cia, para estudarmos a viabilidade de 
um reparo dentro de condições de 
“máximo esforço”, utilizando os re- 
cursos disponíveis localmente.” 
Rubens Stephan Junior 
Gerente de Assistência Técnica da 
Hewlett Packard 


SUGESTÕES 


Acho a revista de vocês muito boa e 
simpática. Gostaria, no entanto, de dar 
uma sugestão para melhorar mais e tor- 
ná-la mais útil para a gente, leitores e 
usuários: não façam os programas em 
letras e números tão pequenos, fica 
muito difícil na hora de digitar. No 
resto, tudo bom. 

Vanderlei P. Souto Jr. 
Botucatu — SP 


Creio nunca ser demais parabeni- 
zá-los pelo alto nível e qualidade que 
sua revista nos proporciona. Gostaria, 
contudo, de dar uma sugestão que vi- 
ria a melhorar ainda mais o conteúdo 
dessa revista: como sou possuidor de 
uma pequena máquina programável 
(HP-34C), gostaria que fossem publi- 
cados, na medida do possível, progra- 
mas e/ou matérias que atingissem este 
tipo de máquina, cuja capacidade de 
programação é muito inferior aos ar- 
tigos publicados nessa revista. 

Penso que essa iniciativa benefi- 
ciaria a um número grande de “pe- 
quenos”” programadores, como eu. 
Paulo Roberto B. Reis 
Rio de Janeiro-RJ 


Estou com vocês e não abro (só 
abro para ler a revista)! Mas bem que 
vocês podiam atender aos pedidos de 
tantos leitores, como eu, que sugerem 
a publicação de números especiais de 
jogos, especialmente para os micros 
compatíveis com o ZX81. 

José Mário Ferreira Borges 
Maceió — AL 


Envie suas sugestões para MICRO 
SISTEMAS. Elas serão anotadas em nos- 
sa pauta e procuraremos, na medida do 
possível, viabilizá-las. 
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Enxadrista experiente, Luciano Nilo de An- 
drade já escreveuipara os jornais “Correio da 


Manhã”, “Data News” e “Ultima Hora” e pa- 
ra a revista “Fatos & Fotos”. Luciano é econo- 
mista, trabalhando no Ministério da Fazenda, 
no Rio de Janeiro. As opiniões e comentários 
de Luciano Nilo de Andrade, bem como as 
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últimas novidades do Xadrez jogado por com- 
putadores, 
MICRO SISTEMAS. 


estarão sempre presentes em 


Micros vs. Macros 


evin O'Connell, perito em Ci- 
bernética aplicada ao Xadrez, 
prevê que dentro de poucos 
anos os microcomputadores superarão 
os computadores de grande porte (os 
macros) neste jogo. Segundo ele, os mi- 
cros têm progredido mais nos últimos 
anos do que os macros, em virtude do 
estímulo comercial que os motiva dire- 
tamente, explicando-se daí o surgimento 
recente de mais novidades no campo dos 
micros que no dos macros. 

Um acontecimento importante que 
corrobora esta hipótese foram os resul- 
tados obtidos pelos micros e macros 
quando pela primeira vez competiram 
no Open Americano de 1982. Isso cons- 
titui-se numa prova de fogo para as má- 
quinas e seus respectivos programas. 

Os dois micros que competiram fo- 
ram o Sensory 9 e o Prestige Elite. Seus 
resultados foram os seguintes: 

Sensory 9 — Venceu jogadores com os 
seguintes Elos: 1791, 1356, 1732, 1358 
e 1660; empatou com um jogador com 
Elo 1781; e perdeu para jogadores com 
os Elos 2139, 1986, 1773, 1820, 1759 e 
1736. O Sensory 9 fez, assim, um total 
de 5,5 pontos em 12, tendo seu Elo es- 
timado em 1719. 

Prestige Elite — Venceu jogadores com 
os Elos 2049(!), 1991, 1757, 1763 e 
ainda um jogador sem Elo; empatou 
com dois jogadores, Elos 1988 e 1781; e 
perdeu para os jogadores com Elos 
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2142, 1980, 1845, 1863 e 1752. Fez 6 
pontos em 12 possíveis e teve seu Elo 
estimado em 1869. 

Os dois macros que competiram no 
Open rodavam com os programas Chaos 
e Belle. O Chaos, duas vezes vice-cam- 
peão mundial de computadores, fez 6 
pontos em 12 partidas, tendo perdido 
por tempo em duas partidas. O Belle, 
considerado o melhor programa, só dis- 
putou dez rodadas, tendo ganho sete 
partidas (de jogadores com Elos 1730, 
1917, 1909, 2003, 1548, 1715 e 1776) 
e perdido três (Elos 2033, 1893 e 
1863), tendo seu Elo avaliado em 1989. 

Na modalidade de Xadrez Relâmpa- 
go, o Belle fez 7,5 pontos em 9 partidas. 
Outros dois programas para macros tam- 
bém concorrendo, o Chess 4.9 e o Gray 
Blitz, fizeram, respectivamente, 6 e 5 
pontos. O Prestige Elite, único micro 
nesta modalidade, fez somente 3 pon- 
tos, embora tenha vencido jogadores de 
Elos 2109, 2092 e 2152! 

Em termos de Xadrez Relâmpago, os 
Elos das máquinas foram reestimados 
para: 

Belle — 2412 

Chess 4.9 — 2202 
Gray Blitz — 2108 
Prestige Elite — 1856 

Aguardemos para ver se, com o tem- 
po a seu favor, oprognóstico de O'Con- 
nell está correto. Para os enxadristas, 
esta é uma profecia fagueira. 


DD —>—>——————— 


Como ganhar 
sem fazer força 


O Challenge Fredkin em Schevenin- 
gen, Holanda, é um torneio anual em 
que participam igual número de jogado- 
res e máquinas com aprgximadamente o 
mesmo Elo. O vencedor deste ano, um 
jogador de nome Martinak, teve um due- 
lo incomum com as máquinas. 

Na primeira rodada, o Gray Blitz, 
programa para computadores de grande 
porte, perdeu para Martinak (que tem 
Elo 2097) após ter apresentado um de- 
feito que consumiu uma hora e meia de 
reparos e o forçou a realizar jogadas a 
um ritmo acelerado, em situação infe- 
riorizada e que o levou à derrota. 

Na segunda rodada, Martinak jogou 
com as brancas contra o programa 
Nuchess e limitou-se a repetir a partida 
jogada por outro concorrente, Zaffuto, 
contra o mesmo Nuchess, na primeira 
rodada do torneio, e que levou o progra- 
ma a beijar a lona. 

Em tempo, Martinak venceu esta 
competição de quatro rodadas perfazen- 
do 3,5 pontos e embolsando 500 dóla- 
res. 

Um exemplo ilustrativo de como, 
sem fazer muito esforço, pode-se derrro- 
tar computadores no Xadrez. Ou não? 
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Os micros diante dos problemas 
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Por baixo 

de um bom =] 
[076] 44/6)5 jr: To [o] di 

só pode existir 


uma mesa (EkiM]) 


As Mesas para Terminais H&M são tão boas quanto o 
seu computador. Sabe por que? Porque elas são feitas 
com o mesmo know-how e o mesmo critério de 






Tudo isso com a qualidade, 
tecnologia e tradição H&M que 
você já conhece, e que o seu 













controle, segurança e precisão, como são feitos também computador está esperando para 
os computadores. conhecer. 

Além disso, as Mesas para Terminais H&M possuem Consulte-nos pelo telefone ou solicite 
acabamento perfeito, fosfatizado e com fundo plaine, A a visita de um representante H&M. 





base é de poliuretano na cor grafite e o painel na cor gelo. 
O tampo em todos os modelos é de madeira compensada 
de mogno ou virola, com revestimento de fórmica fosca 
branca. 
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Faça com que seus programas que contenham sub-rotinas em linguagem de máquina 
funcionem tanto na versão disco como cassete. Pratique ao som de Ain't she sweet. 





Música, maestro! 





Roberto Quito de Sant'Anna 


com dois drives, impressora, modem e tudo aquilo a 

que você tem direito, resolve difundir a sua experiên- 
cia e enviar aquele programa espetacular, com duzentas e tan- 
tas linhas, para publicação em MICRO SISTEMAS. O seu pro- 
grama usa uma sub-rotina em linguagem de máquina e, logica- 
mente, a instrução DEFUSR. Já imaginou a frustração de um 
pobre mortal que só dispõe de versão cassete, ao receber a 
mensagem de erro L3 (só BASIC-DISCO), após ter passado vá- 
rias horas digitando e sem ter conhecimentos necessários para 
modificar o seu incrível programa? 

Saiba, então, que é possível fazer programas com sub-roti- 
nas em linguagem de máquina que independem da configura- 
ção utilizada. E, embora você não possa saber quem, dentre os 
lestores de MICRO SISTEMAS, possui ou não disco, o próprio 
computador sabe, e você pode instruí-lo a tomar as providên- 
cias adequadas para cada caso. 


A TEORIA 


E is que um dia você, feliz proprietário de um CP-500 


Você já sabe que é possível localizar na memória a posição 
de uma string, através de VARPTR. Sabe também que é possí- 
vel modificar, na memória, o conteúdo de qualquer string (veja 
“Conhecendo melhor as strings”, MICRO SISTEMAS nº 23). 

A maioria das sub-rotinas em linguagem de máquina são in- 
troduzidas em um programa em BASIC pela substituição de 
cada um dos bytes de uma string pelo código-objeto corres- 
pondente a uma instrução em linguagem de máquina. Uma vez 
carregada a sub-rotina (usando READ, POKE e DATA), duas 
providências são necessárias para sua execução: primeiro, infor- 
mar à máquina qual a localização da sub-rotina na memória; 
segundo, a ordem de execução propriamente dita, realizada, 
em qualquer caso, por X =USR(n). 

Quanto à primeira providência, se o sistema não dispuser de 
disco, é necessário pokear o endereço inicial da localização da 
sub-rotina na memória nas posições 16526 (byte menos signifi- 
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cativo — LSB) e 16527 (byte mais significativo — MSB); se 
existe disco, basta usar a instrução DEFUSR = L, onde 
L =LSB+ 256 * MSB. Por exemplo, para fornecer o endereço 
inicial da sub-rotina a ser armazenada em X$, teremos: 


10 XS = "12345" 

20 P = VARPTR(XS) : 
K(P+2) 

30 POKE 16526, LS : 
POKE 16527, MS 


LS=PEEK(P+1) : MS=PEE 


) (sem disco) 


ou 
30 L=LS + 256 * MS: 


) (com disco) 
DEFUSR=L 


AO cecccccorsosccccese 


Para escrever um programa que independa da configuração, 
falta apenas perguntar ao computador se ele tem ou não disco. 
Como? Simples: se o sistema não tem disco, a posição de me- 
mória 16396 contém o valor 201. Assim, se fizermos: 


10 ..... 

20 ..... 

30 IF PEEK(16396) = 201 THEN POKE 16526, 
POKE 16527, MS : GOTO 50 


DEFUSR = L 


LS : 
40 L=256 * NS + LS: 


SO cecccorcecresos 
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obteremos exatamente o que buscamos: um programa univer- 
sal, funcionando diretamente nas versões disco e cassete. 


A PRÁTICA 

Para unir o útil ao agradável, vamos praticar ao som de mú- 
sica. Primeiramente nossa orquestra vai afinar os instrumentos 
(e se você não tem ainda como arrancar som de micro, sugiro 
retirar O plug que vai ao remoto do gravador e gravar O seguin- 
te programa numa fita, para posterior reprodução:) 
10 RANDOM 
20 MS = "12345678901234567890123" 
30 V = VARPTR(MS) : LS = PEEK(V+1) : MS = 

PEEK(V+2) : L = 256 * MS + LS 


40 IF PEEK(16396) = 201 THEN POKE 16526, 
LS : POKE 16527, MS : GOTO 60 


50 DEFUSR = L + (L>32767) * 65536 
60 FOR I = L TO L+22 : READS : POKE I + 
(1 >32767) * 65536, S : NEXT 


70 X = USR(RND(255) + 256 * RND(127)) : G 
oTO 76 


80 DATA 205,127,10,203,36,69,62,1,211,255 
,16,254 


90 DATA 69,62,2,211,255,16,254,37,32,239, 
201 

RUN 

Não se assuste com as linhas S0 e 60. Embora pareçam um 
tanto estranhas, elas apenas verificam se se trata de alguma po- 
sição de memória acima de 32767; em caso afirmativo, a ex- 
pressão L (ou 1) > 32767 é verdadeira e assume o valor—1, o 

ue resulta em subtrair automaticamente 65536 de L (ou 1). 

ra maiores informações, veja a página 125 do Manual de 
BASIC da Prológica.) 

Finalmente, após afinada a orquestra, vamos curtir a musi- 


quinha predileta do Dancin' Demon: Ain't she sweet; para tan- 
to,suprima a linha 70 do programa anterior e acrescente: 


100 READ F : IF F = 999 GOTO 1960 

110 IF F< O GOSUB 136 : GOTO 100 

120 READ D : X = USR(F + 256 * D) : GOTO 
100 

130 FOR I = 1 TO -F : NEXT : RETURN 

140 DATA 111,80,111,80,120,80,120,80,118, 
120,128,80,111,40 

150 DATA 120,40,111,80,111,80,120,80,120, 
80, 128,120,-20 
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160 DATA 111,40,128,40,94,80,94,80,100,80 
+100,80,111,60 

170 DATA 100,40,111,60,128,40,140,60,150, 
60,150,60,170,55 

180 DATA 170,55,190,80,190,80,999 

190 RESTORE : GOTO 10 


As declarações 80 e 90 constituem a sub-rotina em lingua- 
gem de máquina propriamente dita, para a qual foi reservado 
um espaço de 23 bytes na linha 20. Cada vez que a função 
USR, de argumentos F e D, é executada, é emitido um tom de 
frequência F e duração D, sendo que F pode variar entre O 
(mais grave) e 255 (mais agudo) e D, entre O (curto) e 127 
(longo). As declarações 100 e 120 léem, alternadamente, valo- 
res de F e D, e a 130 introduz uma pequena pausa, quando 
necessário. Com essas informações e alguma paciência, você 
pode compor suas próprias músicas em seu micro. E 
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Um pequeno programa utilitário para listar as variáveis de seus programas em BASIC A pplesoft. 








Rastreando variáveis 


uando estamos escrevendo um 
programa de grande dimensão 
em BASIC, é comum a dificul- 
dade em se identificar as variáveis que já 
foram usadas e o que exatamente signfi- 
cam. 

No caso da família Apple II (Micro- 
engenho, Unitron, Maxxi, Apple BR) o 
problema do controle de variáveis pode 
se acentuar devido ao fato de que, nes- 
tas máquinas, apenas os dois primeiros 
caracteres do nome da variável são con- 
siderados em sua identificação. (No 
BASIC Applesoft, só são reservados dois 
bytes para o registro do nome de uma 
variável, compreendendo assim somente 
as duas letras ou números iniciais do 
nome). 

Isto sigmfica que os nomes de variá- 
veis FATO e FACA fazem referência 
ao mesmo valor, não importando que se- 
jam palavras diferentes. Qualquer identi- 
ficador que principie com as letras FA 
representará, para o computador, o mes- 
mo valor (inteiro, real ou alfanumérico), 
não havendo diferença devido às demais 
letras do identificador. 

Além disso, existem três tipos dife- 
rentes de variáveis do tipo simples em 
Applesoft, que são: 

1 — Variáveis inteiras — São variáveis 
que só admitem números inteiros entre 
—32767 e 32767. (Em sua codificação 
são usados 2 bytes. Assim, como cada 
byte pode assumir 256 estados diferen- 
tes, as variáveis inteiras podem ter 256 
vezes 256 (= 65536) valores distintos. 
Como queremos ter números positivos 
e negativos, teremos 65536/2=32767 va- 
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lores). Elas são diferenciadas das demais 
pelo símbolo x que segue o nome da va- 
nável. Exemplos: A%, VA%, HOJE%. 


2 — Variáveis reais — São variáveis que 
admitem números reais. Assumem qual- 
quer valor entre —9.99999999E37 e 
9.99999999E37 e são codificadas com 
cinco bytes: um para o expoente e qua- 
tro para a mantissa. Exemplos: A, VA, 
HOJE. 


3 — Variáveis string — São variáveis alfa- 
numéricas e podem armazenar cadeias 
de O a 255 caracteres. Elas são registra- 
das com três bytes: um para a quantida- 
de de caracteres encadeados e dois para 
a posição de memória onde está efetiva- 
mente registrada a cadeia de caracteres 
(apontador para a posição). Exemplos: 
AS. VAS, HOJES. (É importante notar 
que as variáveis A%, A e A$ são variá- 
veis diferentes.) 

No momento em que uma nova variá- 
vel simples qualquer é criada ou referen- 
ciada durante a execução de um progra- 
ma, o Interpretador BASIC usa sete 
bytes da memória do computador para 
defina. 

Para o caso de variável real, dois 
bytes são para seu nome e cinco para 
seu valor. Para as variáveis inteiras, são 
dois bytes para o nome e dois para seu 
valor, ficando os três restantes sem uso. 
E finalmente, para variáveis string, dois 
bytes definem o nome da variável, um 
byte define o número de caracteres que 
estão armazenados nesta variável e mais 
dois bytes indicam o endereço de me- 
mória onde está registrada a sequência 


E. Mn 


de caracteres correspondente. Os dois 
últimos bytes ficam sem uso. 

Exaste apenas um detalhe: para saber 
depois se variável é inteira, real ou string. 
o Interpretador registra os dois bytes de 
seu nome de uma maneira bastante 
especial. No Apple II, a tabela de ASCII 
é duplicada, isto é, cada letra pode ser 
especificada por dois números. A letra 
A, por exemplo, pode ser codificada 
com o número 65 ou com o endereço 
193. Para as variáveis inteiras, no regis- 
tro de seu nome são usados os valores da 
tabela que são maiores que 127; nas va- 
náveis string, usa-se O primeiro byte da 
primeira tabela e o segundo byte da 
segunda tabela. Os outros dois modos de 
codificação existentes podem ser usados 
no registro de uma variável do tipo real. 

Vejamos um exemplo: considere o 
caso de registrar o nome das variáveis 
AA, AA% e AAS nos dois bytes da lista 
de identificadores. O Interpretador agirá 
conforme o mostrado na figura 1 e estes 
valores são registrados em sequência de 
sua definição no programa em endereços 
que funcionam assim como uma lista de 
variáveis. Quando o programador faz re- 
ferência a um identificador, o Interpre- 
tador va a esta lista e procura o identifi- 
cador referenciado. Quando o encontra, 
devolve o seu valor correspondente. 

Esta lista de variáveis começa em um 
endereço de memória que é indicado 
pelos bytes $69 e S6A (105 e 106 em 
decimal), tratando-se da lista de variá- 
veis simples. 

No caso das variáveis endereçadas 
(arrays), o processo de armazenamento é 
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INTEIRA | AM 





STRING AAS 





REAL AA 


Figura 1 


um pouco mais complicado. Desta vez 
não se pode arbitrar simplesmente que 
serão usados apenas sete bytes para 
registrar todas as variáveis porque elas 
podem ter dimensões variáveis. Fica a 
critério do programador definir o núme- 
ro de dimensões e também o número de 
variáveis de cada dimensão. 

Neste caso, gastam-se dois bytes para 
definr o nome da variável, mais dois 
que apontam para a variável endereçada 
seguinte, mais um que define o número 
de dimensões da variável, mais um par 
de bytes para cada uma das dimensões 
(define o tamanho de cada dimensão) e, 
finalmente, cinco bytes para cada variá- 
vel real, dois para cada inteira e três 
bytes para definir o tamanho e posição, 
no caso de variável string. 

A lista de variáveis endereçadas prin- 
cipia no endereço de memória aponta- 
do pelos bytes S6B e $6C (107 e 108 


em decimal). É a lista das variáveis ende- 
reçadas. 
O PROGRAMA 
Uma vez feita esta exposição, 


poderemos entender melhor o pro- 
grama utilitáíno que apresentamos ao 
final do texto. Sua função é muto sim- 
ples: rastrear as listas de variáveis mos- 
trando ao programador os nomes e tipos 
de todas as variáveis que foram usadas 
no programa em BASIC que está sendo 
escrito. 

No seu funcionamento são usadas 
três palavras: RJ, RH e RJ$(0). O pro- 
grama percorre a lista até encontrar suas 
própnias variáveis, podendo então encer- 
rar a execução, uma vez que a lista che- 
gou ao fim. 

Existem duas partes bem definidas 
do funcionamento do programa. Na pn- 
meira, usando os apontadores dos bytes 
105 e 106, de variáveis simples, ele mos- 
tra todas as variáveis simples usadas até 
aquele momento no programa. Na se- 
gunda parte (com o apontador dos bytes 
107 e 108, lista de variáveis endereça- 
das) ele faz uma lista de variáveis ende- 
reçadas com o nome, tipo, número de 





dimensões e o tamanho de cada uma das 
dimensões de cada variável endereçada 
dimensionada ou usada no programa 
que se pretende rastrear. 

Toda vez que você tiver um programa 
qualquer e desejar ver as variáveis utili- 
zadas em sua execução após o término 
de seu processamento, basta intercalar 
nele o programa utilitário proposto nes- 
te artigo. Após realizada a execução des- 
se programa, o utilitário entrará em fun- 
cionamento e, lendo as listas de variáveis 
constantes na memória do computador, 
fará uma lista de todas as variáveis que 
chegaram efetivamente a ser utilizadas 
durante a execução. 

Esta intercalação poderá ser feita de 
duas maneiras: com o programa remune- 
rador (RENUMBER), vendido junta- 
mente com o próprio equipamento, ou 
através da digitação do utilitário logo 
após o final da numeração do programa. 

Cabem ainda duas observações: 

— Não deverão ser usadas em seu pro- 
grama as variáveis RJ, RH ou RJ$(0), 
pois poderão ser confundidas com as va- 
niáveis do programa utilitário. 

— As variáveis que — apesar de consta- 
rem de seu programa — não tenham suas 
definições efetivamente executadas não 
serão listadas. 

Após a execução de seu programa, a 
tela será limpa e serão apresentadas im- 


cialmente todas as variáveis simples usa- 
das em seu programa e seu tipo corres- 
pondente (real, inteira ou string). 

Em seguida, serão apresentadas as va- 
ráveis endereçadas que foram usadas, 
seus tipos, números de dimensões e ta- 
manho de cada dimensão. (Lembre-se 
que variáveis endereçadas que não te- 
nham sido dimensionadas com o coman- 
do DIM assumem uma dimensão com 
endereços que podem ar de zero a dez, 
ou seja, onze variáveis). 

Feitas as listas, a execução terminará 
na linha 150, ou noutra correspondente, 
após alguma eventual remuneração para 
que se fizesse a intercalação. 

O utilitário também poderá ser util- 
zado como sub-rotina de um outro pro- 
grama. Para isso, bastará que o END si- 
tuado à linha 150 seja substituído por 
um RETURN e que em seu programa 
você faça um GOSUB para a linha inicial 
do programa utilitário. Neste caso, o uti- 
ltário só lustará as variáveis que foram 
usadas antenormente ao comando 
GOSUB que começou a executá-lo. 


Rudolf Horner Junior cursa Ciência da Com- 
putação na Unicamp e é sócio da Potencial 
Software, firma que produz programas espe- 
ciais para microcomputadores em Londrina, 
PR. 





Rastreamento de variáveis 


10 TEXT : HOME : 
255 

20 DIM RISCO) 

30 PRINT “SIMBOLOGIA:": PRINT 4 PRINT 
“INTEIRAS (%) ; PALAVRAS (8) 
1 REAIS ()" 

40 PRINT 4 PRINT : PRINT "LISTA 
DE VARIAVEIS SIMPLES: ": POKE 

: HOME 

PEEK (105) + 256 & PEEK 
(106): REM APONTADOR PARA V 
ARIAVEIS SIMPLES 

60 RH = O 

70 1F- PEEK (RJ) = 


NORMAL : SPEED= 





ASC ("Rº) AND 
PEEK (RJ + 1) = ASC ("J") THEN 
GOTO 110: REM ENCONTRADO O 
FINAL DA LISTA DE VARIAVEIS 


BO GOSUB 210: PRINT 

90 RJ = RJ + 7: REM TRANSFERE O 
APONTADOR PARA UMA OUTRA VAR 
IAVEL SIMPLES 

100 BOTO 70 

110 PRINT 4 POKE 49168,0: PRINT 
“PRESSIONE UMA TECLA: ";1 GET 
RISCO) 

120 POKE 34,4: HOME + PRINT "LIS 
TA DE VARIAVEIS INDEXADAS: "1 
PRINT : PRINT “TIPO Nom 
E NºDIM DIMENSOES" 

130 POKE 34,9: HOME 

140 RJ = PEEK (107) + 256 * PEEK 


(108): REM APONTADOR PARA V 
ARIAVEIS ENDERECADAS 


150 IF PEEK (RJ) = ASC ("Rº) AND 
PEEK (RJ + 1) = ASC ("JU") + 
128 THEN END 


160 GOSUB 210: PRINT TAB( 17); PEEK 
(RJ + 4); TAB( 23)4 
170 FOR RH = PEEK (RJ + 4) TO 1 








STEP 14 PRINT 256 * PEEK 
(RJ + 3 +28 RH) + PEEK (R 
J+4 +28 RH" * NEXT 

180 PRINT 

190 RJ = RJ + PEEK (RJ + 2) + 25 
6 4 PEEK (RJ + 3): REM TRA 


NFERE O APONTADOR PARA A PRO 
XIMA VARIAVEL INDEXADA 


200 GOTO 150 
210 IF PEEK (RJ) > 127 AND PEEK 
(RJ + 1) > 127 THEN PRINT! 
INTEIRA"; ERIS(O) = "X*: GOTO 
240: REM  VARIAVEL INTEIRA 
220 IF PEEK (RJ) < 128 AND PEEK 
(RJ + 1) > 127 THEN PRINT 
PALAVRA" p IRIS (O) = "8"; GOTO 
240: REM VARIAVEL "STRING" 
(PALAVRA) 
230 PRINT “REAL"pIRISCO) =" “; REM 
VARIAVEL REAL 
240 PRINT TAB( 11); CHRS ( PEEK 
(RJ))3 CHARS ( PEEK (RJ + 19) 
1RIS (0) 
250 RETURN a 














CURSOS PARA EXECUTIVOS, MÉDICOS E ADVOGADOS! 


Você pode ter um Domínio total de seus Dados. * Criar e Gerenciar Arquivos. * Fazer todos os possí- 


veis Relatórios e Pesquisas com base nos Arquivos. * Treinamento de 16 hs. em MICROS. Caso vo- 
cê não tenha MICRO, o curso lhe dará condições de decidir com base em fatos 


dBMICRO - AV. PROFESSOR ALFONSO BOVERO, 218 - TEL.: 263-0711 
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Uma análise dos métodos para o cálculo de dígitos verificadores 
e a apresentação do algoritmo do módulo 11. 





Dígitos Verificadores 


a área de processamento de da- 
N dos torna-se necessário que de- 

terminados campos numéricos 
que são considerados como chaves para 
acesso a determinadas informações — e 
cujos dados devem ser perfeitamente 
confiáveis — contam com um recurso 
que tome a identificação como sendo 
particular para cada registro gravado ou 
lido 


O controle de valores numéricos 
usados em computação é importante 
quando estes valores são usados para a 
identificação individualizada da infor- 
mação. Como exemplo, podemos citar o 
caso mais usual, que é o do CPF, que 
identifica todos os contribuintes do Im- 
posto de Renda, cujos códigos represen- 
tam uma função unívoca entre o contri- 
buinte e as informações a ele correspon- 
dentes. O mesmo acontece com a ma- 
trícula de alunos de uma escola, os códi- 
gos de cartões de crédito e tudo que ve- 
nha a ter a característica de função uní- 
voca. 

Apesar de existirem muitos méto- 
dos para o cálculo de dígitos verificado- 
res, alguns são falhos. Deste modo, de- 
vemos ter sempre a preocupação de usar 
aquele que apresente a melhor eficiência 
quanto aos seguintes itens: 

e transcrição: falhas que ocorrem 
quando se transcreve um valor. Ex: 
transcrever-se 1 por 7, 2 por 5 etc.; 

e transposição simples: quando os valo- 


16 


Eraldo Souza Rocha 


res são escritos corretamente, só que 
com números trocados entre si. Ex: 
1234 ao invés de 2134; 

e transposição dupla: quando a troca 
de números ocorre entre colunas. Ex: 
21963 ao invés de 26913; 

e outras transposições; 

e randômico: quando ocorre a combina- 
ção de dois ou mais erros dos tipos já 
mencionados. 


ANÁLISE DOS MÉTODOS 


Dos vários módulos de cálculos de dí- 
gitos verificadores, os mais usados são os 
módulos 10 e 11, Em cada um deles usa- 
mos um peso para o cálculo, que é apli- 
cado posicionalmente a cada algarismo 
que compõe o valor do qual se deseja 
obter o dígito verificador. 

Os métodos, em sua maioria, usam 
pesos e módulos. Peso é o multiplicador 
de cada dígito do número de código pri- 
mitivo que se emprega para se obter o 
produto. Módulo é o número que é usa- 
do para dividir a soma dos produtos re- 
sultantes da operação anterior para se 
obter o resto. 

Em estudo feito com a aplicação de 
vários métodos para o cálculo de dígitos 
verificadores foi encontrada a eficiência 
de cada método com base na detectação 
dos erros, de acordo com os erros que 
são inseridos durante o processamento. 
O resultado desse trabalho está na figura 


1, onde pode ser visto o método mais 
eficiente, que é o módulo 11. A figura 2 
toma mais clara aínda esta afirmação. 

O ALGORITMO 


Desenvolvemos, a seguir, o algoritmo 
do módulo 11: 


INICIO 


RECEBE valor 
RECEBE posições 
i:= posições 
j:=2 
ENQUANTO 1 É zero REPETIR 
SE j =7 
ENTÃO 
j=1 
TOTAL := TOTAL + VALOR(i) * 5 
ji=)+1 
dm | = 1 
QUOCIENTE:= total /11 
resto:= total - (11 * quociente) 
SE resto = 0 
ENTÃO 
digito :;= 5 
SE resto = 10 
ENTÃO 
digito :;= 5 
SENÃO 
digito := 11 - resto 
RETORNA valor e digito 
FIM 
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MÁXIMO DE 






AMPLITUDE 
MÓDULOS | DOS PESOS 
POSSÍVEIS 










PESOS 


















Figura 1 


Note que este algoritmo leva em 
consideração que não ocorram repeti- 
ções de pesos tomando, assim, mais pre-- 
ciso e eficaz o seu cálculo, evitando 
erros. 


CONSIDERAÇÕES 


Um outro algoritmo bastante usado é 
o de se somar todos os valores absolutos 
dos algarismos que o compõem para 
obter o dígito verificador a partir deste 
valor. Este também é um algoritmo de- 
ficiente, uma vez que a inserção de zeros 
no campo numérico dará o mesmo d gi- 
to verificador, ocasionando erro. 

Como é de importância vital que 
esses dígitos correspondam a um e so- 
mente um valor numérico válido, um 
processo em real time seria mais eficien- 
te e com pouco acúmulo de erros que 
necessitem uma conferência a posteriori. 

Note também que a utilização de pe- 
sos aplicados a cada algarismo que com- 
põe o campo numérico do qual se deseja 
obter o dígito verificador é de grande 
importância, uma vez que desta forma 
eliminaremos a possibilidade de ocorre- 
rem os erros de transcrição, transposição 
simples e dupla, randômico etc. 

Se compararmos o algoritmo do mó- 
dulo 11 com o do módulo 10, que usual- 
mente considera pesos 1 para valores de 
posição ímpar e 2 para as posições pa- 
res, podemos ver, através da figura 2, 
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COMPRIMENTO 


NÚMERO SEM 


REPETITIVOS 





PESOS 















TRANS- 







Espe 
sem 





TRANSCRIÇÃO 
TRANSP.SIMPLES 
TRANSP.DUPLA 
RANDÔMICO 












Número de erros = 1000 = 1% 


Figura 2 


que a eficiência deste segundo é bastan- 
te precária. 

Alguns sistemas de computação usam 
o módulo 10 que, como já foi visto, não 
é o método mais seguro para detectar os 
erros que podem ser cometidos durante 
o processamento. E se considerarmos 
também que o processo utilizado pelos 
microcomputadores é interativo, esses 
erros podem não ser descobertos logo, e 
sim somente após um longo processo já 
ter sido concluído, o que acarretará uma 
grande perda de tempo. 

Concluindo, não nos colocamos con- 
trários à utilização do módulo 10 para o 


PERCENTAGEM DE ERROS DETECTADOS 





TRANS- 


TRANS- | OUTRAS 
UTILIZADOS CRIÇÃO | POSIÇÃO | POSIÇÃO | TRANSPO 
SIMPLES | DUPLA | SIÇÕES 


Número de registros = 100.000 


Eficiência = 5 erros não detectados em 100.000 registros 
= 99,995% de cobertura de erros 



























cálculo de dígitos verificadores, apesar 
de não o considerarmos um bom módu- 
lo; somos, sim, contrários aos algoritmos 
que têm sido utilizados pelas suas precá- 
rias eficiências quanto à detectação de 


erros. . 
=) 


Eraldo Souza Rocha é mestre em Informática, 
formado pela PUC, graduado em Matemática 
pela Universidade Federal do Espírito Santo e 
Analista de Sistemas pelo NPD da mesma Uni- 
versidade. 
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ICRO PROCESS 
COMPUTADORES LTDA. 


* Microcomputadores: 
TK-83/TK-85/CP-200/CP-300/CP-500 

* Micro Sistemas AIKO/CCE 
(últimos lançamentos) 

* Calculadoras Sanyo/Cassio 

e Fitas, disketes - Dysan e Verbatin 

* Monitores, impressoras, disk-drives, etc. 

* Programas (fita/diskete) para todos os 
computadores 
- Contabilidade - aplicativos - jogos, etc. 
- Personalização de programas para firmas e 

profissionais liberais. 

* Jogos Odissey / Dactari 

* Manutenção e transformação de televisores 

* Mesas especiais para computadores 

* Revistas e Publicações Técnicas 
Despachamos por nossa conta via Varig 
tel.: 64-0468 


Alameda Lorena, nº 1310 - CEP 01424 
São Paulo 
*** ESTACIONAMENTO PARA CLIENTES *** 





CHEGA DE 


pronto para ser usado. 

Programas de uso pessoal ou estritamente profissional, 

Cadastros, Banco de Dados, Locações, Contabilidade, Contas a Pagar 

e Receber, Editor de Texto, Conta Bancária, Mala Direta, Visicalc, 

Controle de Estoque 

E para o programador; Editor Assembler, Compiladores Basic e Cobol. 
e jogos, que ninguém é de ferro. 

Todos em português, gravados em cassettg ou diskette, com manual do 

usuário, extremamente práticos. 

Estamos ao seu alcance. 

Confira. Solicitando por telefone ou no revendedor de sua cidade, relação 

de programas disponíveis. 


micro informática ltda. 
R. Augusta, 2690 - 2º andar - Loja 318 
Tel. (011) 852-2958 - cep 01412 - SP 


monk, 
o software que faz você ficar 
feliz por ter um micro. 








| ROGÉRIO COSTA PEREIRA 


| COMPUTES, 
GRILO! 


COMPUTADOR PARA TODAS AS IDADES E 


PEREIRA, 

Rogério Costa, 
Computes, Grilo 
Computador 

para todas 

as idades, 

Livros Técnicos 

e Científicos 

Editora, 

Cr$ 2.600,00 (Jul/83). 





Computes Grilo deve ser encarado como uma incur- 
são no mundo do computador que produz alguns esclare- 
cimentos de ordem técnica àqueles que nenhum conheci- 
mento têm sobre computação. 


Pretendendo atingir o universo dos jovens acima de 
dez anos, sem experiência anterior em computação e que 
já tenham completado ao menos a 42 série do primeiro 
grau, a abordagem do tema é por vezes simplista, inclusi- 
ve na forma de apresentação dos conceitos. O que não 
exclui o seu uso por qualquer pessoa que queira receber 
uma noção inicial sobre computadores. 


Segundo o autor, o objetivo principal do livro é dar 
ao leitor uma base ao mesmo tempo conceitual e prática 
que estimule de forma explícita o desenvolvimento do 
raciocínio lógico, e facilite, no futuro, uma inevitável in- 
teração com os computadores. 


O estudante não precisa ter maiores conhecimentos 
sobre a linguagem BASIC para ter acesso ao livro, mas 
deve ter à sua disposição um manual de referência para 
eventuais consultas. Igualmente, não é necessário que ele 
conheça o computador com que vai operar, mas certa- 
merte vai necessitar de orientação prévia sobre como 
usar, por exemplo, o vídeo e o teclado. 


A linguagem BASIC foi adotada da maneira mais 
simples e didática possível. Mas o autor afirma que dife- 
renças pouco significativas entre comandos e instruções 
BASIC usadas no livro e aquelas que devem ser usadas 
em equipamentos específicos, “dificilmente afetarão o 
uso deste material”. 

O livro está dividido em duas partes. A primeira parte, 
denominada de “programação”, compreende explicações 
sobre o computador e sua utilidade. Já a segunda parte 
mostra como o computador é empregado na prática, ten- 
do como exemplo um sistema computacional utilizado 
por uma fábrica de automóveis. 
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Seduzido e abandonado. 


Esta é a história do cavalheiro que comprou 
um microcomputador que ia resolver todos 
os problemas da sua empresa. 

O preçinho era bom e a conversa do 
vendedor, atraente. Poucos dias depois ele 
descobriu que o equipamento não resolvia 
todos os problemas (pelo contrário, criava 
alguns novos) e pior de tudo, ao voltar à loja 
onde tinha comprado, percebeu que ninguém 
entendia realmente do assunto. 

Em outras palavras, ele foi lamentavelmente 
seduzido e abandonado. Mas nem tudo está 
perdido: basta consultar a 

Microshop antes de comprar um 
microcomputador. 


A Microshop ouve antes de falar. 
Micros são formidáveis, desde que sejam 
recomendados exatamente para as suas 
necessidades. 


Porisso nós fazemos todo tipo de 
perguntas sobre a sua atividade, e o 
tratamento das informações para podermos 
acelerar o processo de tomada de decisões. 
Nós achamos que quanto mais soubermos 
sobre o seu problema, mais fácil e completa 
será a nossa solução, 


A Microshop dá opiniões sinceras. 
Trabalhamos com todas as marcas e modelos 
importantes e não temos interesse em 
“empurrar” esta ou aquela marca. Assim, 
você tem a certeza de receber 

sempre um opinião independente. 


A Microshop resolve mesmo. 

Ao invés de um simples balconista bem- 
intencionado, nós atendemos vo: 
formada em Computer Science na 
Universidade de Nova York. 


São Paulo: Al 


Recife: Av. Conselheiro Aguiar, 1385 - Loja 4 CEP. 50.000 - Tel.: 


Isso que dizer orientação 

inteligente e correta na escolha do 

software mais adequado (também 
desenvolvemos programas específicos para as 
suas necessidades). Sig também colocar 
à sua disposição nossa longa experiência com 
profissionais liberais, empresas de pequeno 
porte e multinacionais. E m damos 
treinamento completo na utilização dos 
micros e softwares. 

Venha conversar conosco. Nós podemos lhe 
seduzir, mas não vamos nunca lhe abandonar. 


A loja dos micros inteligentes. O 


rena, 652 - CEP. 01424 - Tels: (011) 282.2105 - 852.5603. 


(081) 326.1525 - Boa Viagem . 














MOSTRA DE TECNOLOGIA 


A segunda Exposição de Tecnologia 
em Computação — Extec, realizada pa- 
ralelamente ao Ill Congresso da Socieda- 
de Brasileira de Computação, no final de 
julho em Campinas, São Paulo, mostrou 
em seus estandes o que instituições de 
ensino e pesquisa de todo o pais estão 
desenvolvendo nessa área. A Universi- 
dade Federal de Pernambuco, por exem- 
plo, apresentou um sistema para desen- 
volvimento com 8 Kbytes de memória 
RAM e 5 Kbytes de EPROM, que utiliza 
memória virtual, chegando a compilar 
programas de até 256 Kbytes. A Universi- 
dade pernambucana mostrou também o 
sistema operacional FILIA versão 1.4, 
que serve para a manutenção de arqui- 
vos em disco flexivel, organizados em 
um diretório com até 104 entradas em 
cada disquete; e um terminal de vídeo 
com teclado standard e pena ótica. 

Já o Laboratório de Sistemas Digi- 
tais da Escola Politécnica da USP mos- 
trou O microcomputador pessoal JDM, 
que tem CPU com microprocessador 
8085, 16 Kbytes de EPROM e 16 Kbytes 
de memória RAM. Atualmente está sendo 
desenvolvido no laboratório uma expan- 
são de memória RAM para 64 Kbytes. 

No setor de empresas destacou-se o 
terminal de vídeo gráfico colorido, desen- 
volvido pela Scopus por encomenda da 
Embratel. O vídeo tem resolução de 240 
x 320 pontos e utiliza simultaneamente 
8 cores na tela, selecionadas de um con- 
junto de 64. O terminal possui recursos 
de zoom — que permitem ampliar a ima- 
gem em até 16 vezes — e possibilita a 
movimentação horizontal e vertical da 
tela através da capacidade de panning 
dentro da memória gráfica. 


NOVA DIRETORIA 
NA ASSESPRO 


A Assespro-Nacional, Associação 
Brasileira das Empresas de Serviços de 
Informática, elegeu a sua nova diretoria 
para o período 83/84. Na Diretoria-Exe- 
cutiva foi mantido José Maria T. C. So- 
brinho na presidência, sendo os demais 
cargos preenchidos por Mauro do Valle 
(Vice-Presidente), Jorge Araújo (Diretor- 
Secretário) e Haroldo Duarte (Diretor- 
Financeiro). A Diretoria Técnica ficou as- 
sim constituída: Francisco Ramalho (Soft- 
ware), Alberto Custódio (Serviços), Edu- 
ardo Guy de Manuel (Treinamento), Os- 
car B. Miranda (Recursos Humanos) e 
José Cláudio de Oliveira (Atividades Go- 
vernamentais). Foi criada ainda uma As- 
sessoria Especial composta por Antonio 
Barrio Júnior. (Desenvolvimento de Mer- 
cado), Nilton Trama (Desenvolvimento In- 
terno), Roberto Augusto da S. Araújo 
(Código de Ética), Paulo Kleber Pereira 
(Divulgação Institucional) e Mauro Barto- 
lomeu Sebben (Coordenação) 





UMA IMPRESSORA 
PARA DOIS MICROS 


A loja Microshop de São Paulo está 
lançando um chaveamento eletrônico que 
possibilita a ligação de dois microcom- 
putadores a uma mesma impressora. Tra- 
ta-se de um multiplexador que seleciona 
qual dos micros irá transmitir para a 
impressora. O novo chaveamento é adap- 
tável a qualquer micro com interface pa- 
ralela padrão Centronics e seu preço é 
de 115 ORTN's. Este equipamento é en- 
contrado com exclusividade nas lojas 
Microshop. 


MANUTENÇÃO 


A Sistema Ltda., do Rio de Janeiro, 
está dando manutenção para compu- 
tadores Apple, TRS-80 (modelos |, Il, Ill e 
Color), IBM PC, Sinclair (ZX-80, ZX-81), 
Microdigital (TK 82-C e TK 85), Spectrum, 
Microegenho, Unitron (AP Il), Polymax 
(Maxxi), Kemitron (Naja), Digitus (DGT- 
100) e toda a linha da Prológica. 

Os contratos podem ser de duas mo- 
dalidades: manutenção preventiva men- 
sal ou assistência técnica a panes even- 
tuais. O orçamento é sem compromisso 
e gratuito, diz a empresa, quando o clien- 
te estiver localizado no centro da cidade. 


O COMPUTADOR E 


Afora os segmentos mais informa- 
dos a respeito, o computador ainda é 
objeto de desconhecimento e temor para 
a maior parte da sociedade brasileira. 
Esse fato foi constatado, pelo menos em 
São Paulo, pela agência de publicidade 
Alcântara Machado, Periscinoto Comuni- 
cações Ltda. na pesquisa O Compu- 
tador e Você, realizada no último mês de 
julho. A pesquisa, feita através de entre- 
vistas domiciliares em 30 bairros da capi- 
tal paulistana, abrangeu uma amostra de 
400 pessoas divididas proporcionalmente 
entre homens e mulheres das classes A/B 
e Ce duas faixas de idade, de 20 a 29 
anos e de 30 a 45 anos, e chegou a algu- 
mas conclusões interessantes. 

Provavelmente em virtude dos tem- 
pos difíceis que a economia brasileira 
vive hoje, duas das preocupações princi- 
pais manifestadas pelos entrevistados re- 
ferem-se aos problemas de emprego e 
financeiro. Do universo consultado, 59% 
acredita que o computador vai diminuir 
as oportunidades de emprego, enquanto 
que a maioria das pessoas que gostariam 
de comprar uma dessas máquinas pen- 
sam em aplicá-las em controle de orça- 
mento, contabilidade caseira e contas a 



























































EXPORTANDO 
TECNOLOGIA 


A Medidata Informática e Tecnologia 
S.A. firmou contrato de exportação de 
tecnologia com a Nixdorf Computer, A. 
G., da Alemanha Ocidental, um dos 15 
maiores fabricantes de computadores do 
mundo. O contrato dá direito à Nixdorf 
de comercializar, principalmente nos Es- 
tados Unidos e Europa, o software bási- 
co MUMPS desenvolvido pela Medidata 
A empresa brasileira será remunerada 
sob a forma de royalties, na base de uma 
porcentagem por equipamento vendido 
pela Nixdorf que, dependendo do volu- 
me de vendas, poderá significar de US$ 1 
milhão a US$ 3 milhões ao longo de 3 a 
4 anos. 


O GRANDE PÚBLICO 


pagar. A essas aplicações seguiram-se 
as de ensino, lazer (especialmente jogos), 
usos pessoais tipo agenda e necessida- 
des de trabalho. 

Também revelou-se um desconheci- 
mento quase total dos entrevistados em 
relação ao que é o computador e para 
que serve. Praticamente ninguém sabia 
que o Brasil já fabrica computadores e 
mesmo entre as pessoas que demonstra- 
ram interesse em comprar um, houve 
respostas bastante estapafúrdias para 
justificar esse desejo, tais como "fazer a 
limpeza da casa”, “computar as idéias 
das pessoas, “computar minhas partes 
sensíveis e não sensíveis e “saber se as 
pessoas da família estão com o nome 
sujo” 

Das 400 pessoas que responderam à 
pesquisa, menos de 0,5% já possuiam 
computador em casa, 35% gostariam de 
ter, 8% não sabiam e 57% não estavam 
interessadas em comprar um compu- 
tador. Com base na pesquisa, a Alcân- 
tara Machado conclui que “havera ne- 
cessidade de um amplo programa de 
ensino e relações públicas para o com- 
putador se tornar um (...) produto dese- 
jado pelo mercado consumidor”. 





ça 
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BRASIL TRADE CENTER 


Vender soluções, constituindo-se 
mais numa software house que numa 
revenda de computadores. Essa é a filo- 
sofia seguida pelo Brasil Trade Center — 
Divisão de Computadores e Sistemas, 
loja recentemente inaugurada no Rio de 
Janeiro. De acordo com o engenheiro 
Everton Lamartine Matte a empresa, além 
de desenvolver sistemas parametrizados 
capazes de serem adaptados com facili- 
dade às necessidades especificas dos 
tlientes, poderá ainda comercializar pro- 
gramas de terceiros, devidamente depu- 
rados pela equipe da casa, com o obje- 
tivo de formar um banco de software 
bastante completo e diversificado. Além 
de comercializar equipamentos da Proló- 
gica, Polymax, Texas, Microdigital e tele- 
visores Sharp, o Brasil Trade Center ofe- 
rece também cursos especializados, for- 
necendo aos participantes documenta- 
ção técnica e disquetes com software re- 
ferentes aos temas abordados. Entre es- 
ses cursos constam o de BASIC (básico 
e avançado), Sistemas de Gestão em 
Microcomputadores, Estatística Aplicada 
e Recursos Gráficos em Minicomputado- 
res. O Brasil Trade Center fica na Av. 
Epitácio Pessoa, 280, Ipanema, Rio de 
Janeiro — RJ, CEP 22471, tels.: (021) 
259-1299/1499/1542 





CONSELHO 
DE INFORMÁTICA 


A Informática brasileira acaba de ga- 
nhar mais um importante foro para dis- 
cutir os seus problemas e apontar possi- 
veis soluções. Trata-se do Conselho Per- 
manente de Informática da Associação 
Comercial do Rio de Janeiro, instalado 
dia 5 de agosto na sede da entidade. 
Presidido por José Maria Teixeira da 
Cunha Sobrinho, também Presidente da 
Assespro-Nacional, o grupo é composto 
por 34 conselheiros representando, além 
de empresas nacionais e multinacionais 
de Informática, os setores de indústria, 
comércio, empresas estatais, órgãos pú- 
blicos, a Universidade e a Imprensa 


O Conselho, conforme frisou Sobri- 
nho, tem duas finalidades principais: 
“Tratar e propor linhas de ação para as 
questões mais relevantes da Informática 
e incentivar a correta divulgação da In- 
formática, reconhecendo-a como um po- 
deroso instrumento a serviço da socie- 
dade e do desenvolvimento do Pais' 
Para atingir esses objetivos, o Conselho 
possui seis comissões técnicas que irão 
abordar a Informática em seus aspectos 
de desenvolvimento, divulgação institu- 
cional, uso, serviços, software e indústria 
de computadores e afins. 





TRADUÇÕES 


e Traduções e versões 
exclusivas para a 
comunidade de informática. 

e Pioneiros no setor. 

e Manuais e publicações 
diversas. 


e Gráficos. 


e Supervisão Técnica de 
profissionais atuantes - 
analistas e consultores. 

e “Linguagens de alto nível” 
aliadas à qualidade / 
velocidade de entrega. 


oOiscover 
TRADUÇÕES 
Informações 
pelos telefones: 
(021) 264-6392 
264-7391 
228-2798 








STRINGS 





e A Microshop inaugurou mais uma fi- 
lial, desta vez em Campinas, no Shop- 
ping Iguatemi. E para o final de setem- 
bro, está prevista a abertura de outra 
loja, na Av. Pacaembu, São Paulo, capi- 
tal 


* A Prológica firmou convênio com o 
SENAC, colocando a disposição da enti- 
dade microcomputadores para utilização 
em cursos de Informática. Com esse con- 
vênio, a empresa passa a colaborar na 
formação de profissionais em cinco gran- 
des instituições de ensino de São Paulo. 


e O primeiro microcomputador |-7000 
comercializado pela Itautec foi instalado 
no IMPA — Instituto de Matemática Pura 
e Aplicada, do CNPq, no Rio de Janeiro. 
O sistema será utilizado como terminal 
IBM, em processamento distribuído, para 
edição e compilação de programas volta- 
dos às atividades de ensino e pesquisa. 


* A Nasajon Sistemas lançou seu Catá- 
logo Geral de Software Aplicativo, con- 
tendo a descrição detalhada de 15 siste- 
mas e uma tabela de preços dos 45 sis- 
temas de uso comercial, cientifico e pes- 
soal já desenvolvido pela empresa. 


e Já foi implantada na Givaudan do Bra- 
sil, em São Paulo, a primeira versão do 
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Sabiá, primeiro software brasileiro de 
banco de dados relacional criado e de- 
senvolvido para minicomputadores pela 
SCI — Sistemas, Computação e Informá- 
tica. 


e Mais uma empresa passa a integrar 
o Grupo Machado, composto pela Data 
Ribbon, Data Nova e Datrix. Trata-se da 
MR Computadores e Sistemas Ltda. 
O grupo também acaba de colocar no 
mercado os disquetes Datadisk, de 5 
1/4" e 8”, compatíveis com todas as mo- 
dalidades de drives. 


* A Control Data do Brasil já está fun- 
cionando em sua nova sede no Rio de 
Janeiro, na Rua Voluntários da Pátria, 
301, Botafogo, CEP 22270, tel.: (021) 266- 
3222. 


* A coleção de jogos de videogame Odis- 
sey tem quatro novos cartuchos. Três 
deles pertencem à série esportiva e são: 
Bilhar, Futebol de Salão/Hokey (dois jo- 
gos num só cartucho) e Esqui nos Alpes. 
Na série ação, está disponível o Duelo no 
Velho Oeste. 


e À Tesbi Engenharia, que comercializa 
equipamentos da Digitus, Microdigital, 
Prológica e respectivo software, foi cre- 
denciada pela Polymax como soft house. 








Wes 








NÃO SE ILUDA! ... 


Na hora de comprar seu 
Minicomputador, Progra- 
mas, Impressoras, etc. 

Consulte quem joga 
aberto. Revenda autoriza- 
da da DIGITUS — MICRO- 
DIGITAL — DISMAC — 
POLYMAX. 

Também Manutenção au- 
torizada DIGITUS. 
Comprove nosso atendi- 
mento! 

Preço justo por serviço 
correto. 


TESBI ENG. TELEC. LTDA. 
RUA GUILHERMINA, 638 - ENCANTADO 
TEL.: (021) 591-3297 e 249-3166 





NOVO MICROCOMPUTADOR 
DA MICROCRAFT 


A Microcraft Microcomputadores 
Ltda lançará, na próxima feira da Suce- 
su, O microcomputador AMC 6500. O no- 
me do equipamento é provisório, já que 

* o definitivo será escolhido a partir de su- 
gestões feitas pelas pessoas que visita- 
rão o estande da Microcraft na feira. 
O nome aprovado dará direito a um prê- 
mio para o autor. A configuração básica 
do microcomputador é composta por 
CPU com microprocessador 6502, 64 Kby- 
tes de memória RAM, interpretador BASIC 
residente em ROM de 10 Kbytes, duas 
unidades de disco de 5 1/4”, dupla face 
e dupla densidade, já embutidos no pró- 
prio gabinete da CPU, teclado alfanumé- 
rico, caracteres maiúsculos e minúsculos 
selecionáveis por software, e teclado nu- 
mérico separado. O equipamento possui 
seis conectores para expansão, tem saí- 
da paralela para impressora, saída serial 
para modem, saída para joystick e para 
vídeo a cores ou preto e branco. O AMC 
6500 é compatível em hardware e softwa- 
re com o Apple Il e permite todas as pos- 
sibilidades de expansão do mesmo. 


SUPRIMENTO LTDA 


“Quebramos o seu galho." Este bem 
poderia ser o slogan da Suprimento — 
Materiais para Computadores Ltda., nas 
palavras do seu diretor, Jairo B. Miszpu- 
ten. Isso porquea empresa carioca, com 
um enfoque bastante original de marke- 
ting, propõe-se a auxiliar o cliente, so- 
bretudo o hobbysta, nos problemas difi- 
ceis de resolver, desde adaptar uma fita 
nacional para funcionar numa impresso- 
ra estrangeira sem similar no mercado, 
ou fornecer papéis fora de padrão, até 
problemas relativos a aplicações em ge- 
ral. 

Jairo quer que a sua loja se converta 
num ponto de encontro entre hobbystas, 
onde possam trocar conhecimentos e 
experiências, colocar suas indagações 
na “caixa das dúvidas" e encontrar solu- 
ções na “estante das idéias”. Além de 
todo o tipo de material para micros, a 
empresa vende também equipamentos e 
uma marca de software para aplicações 
comerciais exclusivamente desenvolvida 
para ela. A Suprimento, que começou a 
operar dia 10 de maio, fica na Rua Vis- 
conde de Pirajá, 550 |j. 202, tel.: 274-8845, 
Ipanema, Rio de Janeiro. 


CONTROLE DE FROTAS 


A Simicron — Sistemas Micronizados 
Ltda. acaba de lançar o Sistema Simitrans 
de controle de custos operacionais de 
uma frota de veículos. A partir dos dados 
fornecidos pelos fabricantes, relativos à 
vida útil de determinados componentes, 
o sistema permite calcular o custo de um 
elenco de itens de um veículo, previa- 
mente escolhidos pelo usuário, além de 
possibilitar a execução de um rigoroso 
programa de manutenção preventiva e 
corretiva e apontar problemas tais como 
peças defeituosas fora das especifica- 
ções declaradas pelo fabricante e má 
utilização dos veículos. Ao final do perío- 
do, o sistema fornece o cálculo do custo 
por veículo ou por frota, relacionando o 
total por item e o total dos itens. O Simi- 
trans pode rodar na maioria dos micros 
disponíveis no mercado e requer pouco 
treinamento para sua utilização. A Simi- 
cron fica na Rua Pres. Carlos de Cam- 
pos, 190, Laranjeiras, Rio de Janeiro — 
RJ, CEP 22231, tel.: (021) 205-6597 e 205- 
7849. 


PACOTE KITSIS 


A Empresa Codesis, de Porto Alegre, 
acaba de colocar no mercado o Kítsis. 
Trata-se de um conjunto de programas 
incluindo contabilidade, estoque, contas 
a pagar e a receber, agenda de compro- 
missos e uma série de jogos. Todos os 
proramas vêm com manual explicativo e 
rodam em qualquer microcomputador da 
linha Apple. O novo pacote está sendo 
lançado por aproximadamente Cr$ 90 
mil. 


LANÇAMENTOS BYTESS 


A Bytess Digital Eletrônica e Infor- 
mática acaba de lançar três produtos no 
mercado: o Bytesspool, o Progswitch e o 
TY-3000. O Bytesspool é um buffer para 
impressora com 64 Kbytes de memória 
RAM, 2 Kbytes de EPROM, clock de 4 
MHz e funciona com microprocessador 
Z8B0A. O outro produto é o Progswitch, 
controlador de circuitos através de um 
relógio digital com 18 memórias que per- 
mite programar quando cada uma de 
suas quatro chaves deverá ser ligada ou 
desligada. O sistema é à prova de inter- 
rupção de energia elétrica, mantendo a 
programação na memória e a contagem 
do tempo por meio de uma bateria de 
nove volts que entra em ação quando a 
eletricidade é interrompida. Já o TY-3000 
é um teclado de membrana padrão ASCII 
com 61 teclas. Com unidade de vídeo, 
este teclado formará o terminal TY-3600. 
Os novos lançamentos já estão sendo 
comercializados. Maiores informações 
pelo tel.: (011) 210-7681, São Paulo. 


POLYMAX LANÇA 
POLY 301 WP 


A Polymax colocou no mercado o 
microcomputador Poly 301 WP, voltado 
para o processamento de textos, e utili- 
zando o programa Polyscriba. A configu- 
ração básica do Poly 301 WP apresenta 
CPU com memória de 64 Kbytes e con- 
trolador de unidade de discos flexíveis. 
Cada disquete armazena 500 mil caracte- 
res, equivalente a 500 páginas datilogra- 
fadas. Compreende ainda um terminal de 
vídeo e teclado alfanumérico com teclas 
especiais de função. Também pode ope- 
rar com fitas magnéticas ou discos rigi- 
dos e impressoras de margarida. 


ITAÚ COMPONENTES 


O grupo Itaú acaba de criar uma 
nova empresa, a Itaú Componentes, que 
fabricará componentes para a indústria 
eletrônica, em especial para a microele- 
trônica. Como o Governo ainda não deci- 
diu sobre a concessão de incentivos pa- 
ra este setor, O grupo Itaú resolveu adian- 
tar-se e desenvolver o projeto com seus 
próprios recursos. O Diretor-Superinten- 
dente da nova empresa é Carlos Eduardo 
Corrêa da Fonseca. 


ELDORADO 


Ipanema, o bairro que detém a maior 
concentração de lojas de micros no Rio 
de Janeiro, recebeu mais um reforço: a 
Eldorado Computadores e Sistemas Ltda. 
A nova loja comercializa equipamentos 
da Prológica, Microdigital, Digitus e Spec- 
trum (Microengenho), além de software e 
publicações nacionais e estrangeiras. 
A Eldorado fica na Rua Visconde de Pira- 
já, 351 — lojas 213/214, CEP 22410, tel.: 
(021) 227-0791 


PARA CONFECÇÕES 


As confecções já podem contar com 
um software desenvolvido especialmente 
para esse ramo de atividade. Trata-se do 
Confec, um programa elaborado pela 
software-house Promicro e que está sen- 
do distribuído com exclusividade pela 
loja Imarés, em São Paulo. 

O programa permite fazer, entre ou- 
tras coisas, a gestão de pedidos, gestão 
de mão-de-obra externa (no caso de cos- 
tureiras contratadas para trabalhar fora 
da fábrica), controle de clientes, controle 
de corte e etiquetas para identificação 
do produto. 

Os sistemas, que compreendem os 
microcomputadores da Scopus e o soft- 
ware Confec, estão sendo comercializa- 
dos pela Imarés por um preço na faixa 
entre os Cr$ 7 e 10 milhões. Quem levar 
somente o programa, pagará 360 ORTNs. a 

ES 
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NÃO CUSTA NADA 
EXPERIMENTAR 


Sonar/Inspec. Você 
precisa conhecer esta 
novidade na área de 
Processamento de Dados. 
Um serviço tão novo que 
não há nada parecido para 
fazer comparação. Com um 
software sofisticado que vai 
facilitar sua vida. 

Imagine uma seleção 
quinzenal de literatura 
técnica especial para você. 


Quer um exemplo? 
Artigos internacionais com 
aplicações de software no seu 
campo. Ou com soluções 
para problemas iguais aos de 
seus clientes. 

A lei do menor esforço vai 
deixá-lo encantado com o 
Sonar/Inspec. Você vai ver. 


E se ainda restarem 
dúvidas, o Cin lhe dá dois 
meses de experiência. Depois 
disso você paga 5 ORTN's 
pela assinatura anual. 

Telefone para o Cin e peça 
material de inscrição. Nosso 
número é (021) 295-2238 
ramal 301. Se preferir, 
eta ou envie um telex ao 


Comissão Nacional de Energia Nuclear 


A Centro de 
Cine 


Nucleares 


Rua General Severiano, 90 - Botafogo 
22294 - Rio de Janeiro - RJ - Brasil 


Tel.: (021) 295-8545 - Telex (021) 21280 CNEN BR 








Os micros da família TRS-80 já nasceram com dotes musicais. 
Dê um empurrãozinho que os “meninos” vão longe. 








Dó, Ré... Micro 


ste artigo destina-se, principal- 
E mente, âqueles que, além de 

terem os microcomputadores 
como hobby, gostam de curtir um som e 
sabem, pelo menos, um pouquinho de 
música. 

Este é o meu caso, e devo confessar 
que fiquei bastante entusiasmada com 
os recursos musicais do software 
Extended Color BASIC. Com ele, os mi- 
crocomputadores compatíveis com o 
TRS-80 Color Computer (além do pró- 
prio) conseguem tocar qualquer música 
com um nível de perfeição que eu julga- 
va quase impossível para um compu- 
tador. 

O comando que executa a música é 
extremamente simples, sendo possível 
codificá-lo diretamente sobre a partitu- 
ra. Apesar desta simplicidade, ele não só 
toca como interpreta a música, levando 
em consideração andamento, rntmo, 
intensidade do som, enfim, todos os 
fundamentos necessários ao músico para 
uma interpretação brilhante. 

Bem, vocês já devem estar curiosos 
para conhecer este comando milagroso. 
Sua estrutura é a seguinte: PLAY 
“string”. O string é um conjunto de 
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caracteres que conterá as informações 
musicais, sendo composto de diversos 
parâmetros. Vamos ver um a um. 

e NOTAS — São codificadas com as le- 
tras de Aa G. 


pó RÉ MI FÁ SOL LÁ 51 





“ 
c o ef c A B 


Se você quiser uma nota com susteni- 
do, basta colocar o caráter j* ao lado da 
nota. Para tocar uma nota bemol é só 
acrescentar o sinal — (menos). Com isto, 
podemos tocar qualquer nota da escala. 
Exemplo: 


Fa B- 
a 


e OITAVAS — São codificadas com a 
letra O seguidas de números de 1 a 5, 
cada um representando uma oitava. A 
escala que acabamos de ver está em 02. 
Qualquer nota mais aguda ou mais grave 
poderá ser tocada se precedida da oitava 
a que pertence. 

e DURAÇÃO DA NOTA OU TEMPO 
— É codificada com a letra L seguida de 


números de 1 a 255. O valor básico é L4 
(semínima) que tem o tempo igual a 1, 
valendo 1/4 de nota. As durações usuais 
são: 


Semibreve (0) =LI 
Mínima ( d )=L2 
, Semínima ( d J=L4 


Colcheia ( 5) -L8 


soa | =LI6 


Fusa ( À -L32 


Semifusa ( & ) 1.64 


Se você tiver notas pontuadas em sua 
música, basta acrescentar um ponto ao 
parâmetro L e ele terá o mesmo efeito 
que na partitura, isto é, acrescentará à 
duração da nota metade do seu valor. 


Por exemplo: 
L4. L8. 12 


Utilizando o ponto, você poderá re- 
solver também eventuais problemas co- 
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mo o de notas iguais ligadas, como na 
seguinte frase: 


La, LO 41. 


Pe 


E se aparecer uma duração de nota 
diferente das já citadas, pode-se fazer 
uma continha e chegar ao valor corres- 
pondente de L. Vejamos: 





Cada nota vale 1/3 de semínima (L4 = 
1/4 de nota), então: 


1x1 
A “4 


= [mé 


+ 


Concluímos que a duração de cada 
nota do exemplo é L12. 

Além disso, caso queira fazer um 
staccato, basta dar ao L um valor alto, 
digamós, L255 e completar o tempo da 
nota com uma pausa. ; 
e PAUSAS — São codificadas com a 
letra P seguida de um número de 1a 255, 
obedecendo às mesmas regras de dura- 
ção da nota L. O parâmetro P apenas 
não admite o uso do ponto; você pode 
colocar duas ou mais pausas P's) para 
identificar uma pausa pontuada. Exem- 


plo: 
é Para 6 


As pausas usuais são: 
Semibreve (mm )=P1 
Mínima (es )=P2 
Semínima ( $ ) =P4 
Colcheia ( 7 )=P8 
Semicolcheia ( 9) = P16 
Fusa ( )=P32 
Semifusa (j ) =P64 


e ANDAMENTO OU RITMO — É co- 
dificado com a letra T seguida de núme- 
ros de 1 a 255. De acordo com o anda- 
mento descrito na partitura, ou o que 
você preferir, forneça o T aoqudo TO 
ra músicas mais lentas use valores meno- 
res para T e, para mais rápidas, valores 
maiores. Desta forma, Alegro = TS e 
Moderado = T2. 
e INTENSIDADE OU VOLUME — É 
codificado com a letra V seguida de 
números de O a 31. Para dar ênfase à 
execução da música, aumente ou dimi- 
nua o valor de V de acordo com a parti- 
tura ou com a sua sensibilidade. Seria 
algo como: $$=V31; P=VIS; P =VS. 
Uma vez fornecido um parâmetro 
(exceto a nota), ele permanece válido 
para todas as notas que o seguem, sendo 
modificado apenas quando se der outro 
que altere o seu valor. No comando se- 
guinte, 
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PLAY "L4;C;D;E;F;L2;G;A;B" 


as notas C, D, E e F serão tocadas como 
semínimas (L4); G, A e B como mím- 
mas (L2). 


Outra coisa que deve ser observada é 
que, como o PLAY executa um string, 
podemos defirur, em nossos programas, 
diversas variáveis string contendo partes 
da música, dividindo a partitura de acor- 
do com a nossa conveniência (quantida- 
de de caracteres de uma linha, trechos 


repetitivos da música etc.). Depois é só 
comandar: PLAY string. 


A TEORIA NA PRÁTICA 


Com estes parâmetros, creio que 
abrangemos todos os recursos necessá- 
rios à execução de qualquer música, des- 
de um Noturno de Chopin até um Cho- 
rinho de Ernesto Nazareth, passando 
pelo Samba, Jazz e até compondo nos- 
sas próprias músicas. 


Apanhei-te Cavaquinho 


TO, e 
APANHEI-TE, CAVAQUINHO!" 
(CHORO) * 

PRINT ERNESTO NAZARETH - BALDONAM" 

PRINT VERSAO PARA O COLOR-64" 

PRINT Q 3: THELMA VANDERL INDE" 

PRINT O 46, Cem mn 
10 AS="T3;L16504;GFHEEDCADFREDCC: 035 BANE; 045 EDCS 033 BBAGRAS 043 DC3 033 BAAGF RG; 045C5 
03: BAGFREDMEAGF RE “ 
20 B$="EDCADEFAGAB; 045 CONDE MEDO: 035 AMB: 04; ED; P16;OFHEEDCHDEHEDCC; 034 BANBS 043 EDCS 
035." 
30 C$="BAGHAS 044 DC3 033 BAAGF 465 04503035 BAGF REDMEAGF REEDCADEFNGAB: 045 CCNDDREEMF HS L 
4sGPL6M 
40 D$="L 165035 B5L325045D5L 1650503: BAW; B504;EFHG;03:B; 045630558; 0456:035 AM; 045 CHF 
HEMSOTS ARS OSS FRIOS 4565033083 045 FHFWS 035 AS 04; FHS OTA 
SO Es="04;FW:03:6B 045D5L 1630503; BAWB; 045 EFWG;03:B;04:6:03:B;0 
45650535B5045FH503:B50 35:04; D; 03; EF 45 045CHE3 035E5045CH5035E5045C5 
OZFDWFHB;P16:B;LIZIO4 
60 F$="AWB;04;EFHG:03:B:04;6 
FAB; 045 FHFH; 0355045 FHOT;ASOAS 
D503:A5043C;035A" 
70 68="04;C503;EGB;PISILBIAHIL 165 E; 0450503: BAHB; 045 EDMGFRIL4GESPI6!" 
BO H$="04:;L165GFHGAGEC; 035 AGECSLE. FASLIGIASPBSLBSASP165G5L16:AB;O4LBSCILIGSDILO 
«FEFLIGFESPOILBSES 
90 18="P16;L16;EDHEFEDRECES 03; B;04;E503:A504:E;03;65043E5F 16; DORDEDCHDED; 03: BY04 
105PL6IGFAG" 
100 J$="AGEC; 033 AGEC;LB. FASLIGSPBSLBSASP16SGILIGFAB;LB:04;C;LLGFDILO. FESLIGSESPO 
FLBFESP16;DHSLIG;EFEDESLO. FASLIGSASPOSLOFASP163L165GFD;03;BGFDILO.5C5045L165C5P1 
&" 
900 X$="XAS; XB$EXC' 
901 YS="XHS;XISE" 
910 PLAY "VIL"IPLAY XSIPLAY XSIPLAY DS:PLAY ESIPLAY FSIPLAY G 
LAY FS:PLAY GS:PLAY XSIPLAY DS:PLAY ES:PLAY FS:PLAY GS:PLAY Y 
LAY JSIPLAY XS:PLAY D$S:PLAY ESIPLAY FS:PLAY 68 
998 CLS 


cLs 

PRINT 
PRINT 
PRINT 





037085045 CHFMFH5 03; AM 045 FH503;AH504:6507 
GHB304;ESPL6ILB;DHSL1G;EF;0T;A;045E303:5A:5045 




































cus Noturno OP. 9Nº 2 















1 

2 PRINT O JD, Careeeanannnnama mma nana ema 
3 PRINT & 96," NOTURNO OP. 9 NUM. 

4 PRINT Q 160," J. F. CHOPIN" 

S PRINT & 268," VERSAO PARA O COLOR-64" 

6 PRINT & 352," THELMA VANDERL 1 

7 PRINT Q 416, "uns 


10 AS="V315T2502 
3033C504;L45C503 
Z0 B$="L4,;FILAGGSL 
-1034 5G5L165FGILIZIFOFSLIO 
30 cs 7025 B; 03: CD-CFEA-G: 04; D- 
EFSLBSGGDILA4, FE-C" 

“OZ5LB; B-5043 DC 03FL LEI B-A 


5025L85B-1035L4565L325CD-C4023B- 
14; B-A-GA-CD5L4, 3E-SP4S025LB5B 
FILIZIE-FE-SL165 DE-F" 

B565L163E5L64;FGFGFGFGILI6S 








3 FLI6ICDILA 
LIZIE-IL4,3E-5 
DCD; 02: B-BB:035CCD" 
LIGFAB-BB-03;CHDILIG.3G5LIZIFILAGFILO. FE-GLIGSFS 
-“CFEA-63 045 D-C3 033 G5L4. ;B-5L4FA-FLB;O” 

FILO: BODIL4. 5 E-C502;L05B-5 045 DCWSL325C4 034 BB-AA-F 














-ILBSÉ-DE-SL4. FFSLASGILO 











L3ZIE-FE-SL 165 DE-FG;025B 
70 68="L16;E;L64;FOFGFF! 
D:02:BB-;03: DGFE-:L4.5E 





B-5045LBFD5LL6FCHCIOZILST 


120 L$="L4.1E -3 054504; LB:E-D 


e” 
130 M$="035L43B-;LOIAA-CDE-SL 16; 16:E-E-;04:L8:65L164FE-DC5035L85 BB- 
AsLI6 -A-BILI6.565L 1.2.5 E-F 












5043E-5PS25L325FIO4LBFGE-S0S 
FL45E-FLOS DCB;04 
150 08="045L2.: 
160 P$="045L163B 
170 08="04;L16:BB-305 -AA-GFDE-C3 03/L84 B-A-CDE-s 025 B-; 03; GE-4 025 B-; 03: GE- 
3025B-303565L4.5E-504;E-5025L2.5E-" 

1000 PLAY AS:PLAY B$:PLAY CS:PLAY D$:PLAY ES:PLAY FS:PLAY B$:PLAY H$:PLAY IS:PLA 
Y ISIPLAY KSIPLAY LSIFLAY MEIPLAY NS:PLAY OS:PLAY P$IPLAY PSIPLAY PS:PLAY PS:PLA 
Y.PSIPLAY PSIPLAY PSIPLAY PSIPLAY PSIPLAY PSIPLAY PS:PLAY PS:PLAY OS 

1010 CLS 
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Para mostrar como é simples codifi- 
car uma música apresentamos, na figura 
1, um pequeno trecho de “Garota de 
Ipanema”, cuja listagem está na figura 2. 

Este trecho de programa está codifi- 
cado exatamente de acordo com a pauta 








* 











02 
V31TI % 


LA-L8 LA 1% 


musical. Porém, você pode modificá-lo, 
adequando-o ao seu gosto. Eu, pessoal- 
mente, prefiro executá-la uma oitava 
acima (trocando todos os parâmetros O 
para um número imediatamente acima. 
Por exemplo: passei 02 para 03 e O1 
para 02). 

Finalizando, você poderá sentir me- 
lhor os resultados rodando estes dois 
programas que apresentamos a seguir: 
um refere-se à música “Apanher-te Cava- 
quinho”, de Ernesto Nazareth e o outro 
ao “Noturno OP. 09 Nº 2”, de Chopin. 
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KALHAU ENGENHARIA, 
A MAIS COMPLETA LINHA DE 


1/0(01510/0/0)/8 400: VDLO)SASIoA 




















TK-85 
Linguagem BASIC 

e 10 Kbytes de ROM 

e 16 ou 48 Kbytes de 
memória RAM 

40 teclas e 160 funções 


APPLY 300; 
Microprocessador Z80-A 
Linguagem BASIC 
8 Kbytes de RAM 
69 teclas tipo membrana 
flexível com 160 funções 
32 ou 48 Kbytes de RAM 













OUTRAS MARCAS 






CURSOS: 


o 
Basic Básico, SCHUMEC — DIGITUS — udp : : 
Basic Avançado, TK-83 — TK-82 — rop mica lh cb po al dos compat 
CPM/DOS e Assembler. J. R. DA SYSDATA o go Tung) O idiOm 
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e Aplicativos * Utilitários * Periféricos 
“Acessórios € Literatura Técnica * Jogos 


Despachamos para todo o Brasil. 
A “ KALHAU ENGENHARIA LTDA. 
Praça Tiradentes, 10 sala 402 


Cep. 20.060-Rio de Janeiro 
Tel. (021) 252-2752 








Conheça 
todas opções 
em micro. 


Conheça 
a Computique. 


Só no Brasil são produzidos atualmente mais de 
30 tipos de microcomputadores. Todos com 
características próprias, com softwares e 
periféricos específicos. 

Antes de comprar o seu, você precisa analisar 
todas essas opções. Ou pode, simplesmente, 
procurar a Computique. 

A Computique fala a sua língua, ajudando você a 
escolher o equipamento e o software corretos. 
Oferecendo publicações especializadas e toda 
orientação técnica que você precisar. 
Mostrando, de forma clara e objetiva, tudo que o 
micro pode fazer por você. 

Na hora de escolher o seu micro, fale com quem 
entende. Fale com a Computique, a opção total 
em microcomputação. 





[4 
(Omputique 
O micro sem segredos. 


São Paulo: Rio de Janeiro: Campinas: Poços de Caldas: 
Av. Angélica, 2578 Av. N. Sra. de Copacabana, 1417 Rua Conceição, 224 Rua Prefeito Chagas, 252 
Fone (011) 231.3922 L. 303/304 - Fone (021) 267.1093 Fone (0192) 32.6322 Fone (035) 721.5810 








Por que desperdiçar as duas últimas linhas de impressão na tela? 
Se você tem um TK, NE, ZX ou CP-200, veja como recuperá-las. 





Abrindo espaço na tela 


Renato Degiovani 


uantas vezes, durante a execução de um programa, 

nós ficamos sem espaço na tela para a impressão de 

um dado? Muitas, não? Apesar das especificações téc- 
nicas quanto ao formato da tela (24 linhas por 32 caracteres), 
as duas últimas linhas não estão disponíveis ao usuário, e o ma- 
nual do computador nos informa que é impossível imprimir 
além da linha 21. 

Isto se dá porque as linhas 22 e 23 são reservadas para a en- 
trada de dados, ou seja, quando alguma coisa é digitada, esse 
dado será primeiramente colocado nessas linhas, e somente 
após o ENTER é que ele será processado pelo computador. Is- 
to é muito bom para escrever ou editar programas, mas perde 
o sentido quando o programa está sendo rodado. 

Nossa convivência com o computador nos mostra que rara- 
mente um programa utiliza dados que precisem mais do que 30 
caracteres. Então, por que perder o espaço de duas linhas? 
Mas, ainda que tenhamos razão, basta tentarmos rodar o pro- 
grama 20 PRINT AT 23,8;“AQUI ESTA ELA”, que o resulta- 
do será uma indicação de erro 5/20 (falta de espaço na tela 
quando foi executada a linha 20), e não há força no céu ou na 
terra que mude isto. Será que não? 

Acrescente a este programa a seguinte linha: 10 POKE 
16418,0 e rode-o novamente. Como por encanto..., aqui está 
ela. Agora calma, não vamos pensar que temos tudo sob con- 
trole, pois o computador preparou algumas armadilhas para os 
espertinhos: se acrescentarmos uma linha 30 INPUT US$, o 
resultado será catastrófico! 

Vamos, então, tentar entender o que aconteceu. O número 
16418 é o endereço de uma variável do sistema chamada 
DF-SZ (isto está no manual). Ela contém o número de linhas 
na parte inferior da tela; logo, esta variável estará reservando 
sempre duas linhas para a entrada de dados. O que nós fize- 
mos foi informar ao computador que nenhuma linha deveria 
ser reservada, e assim, as 24 linhas ficaram disponíveis para se- 
rem usadas. 
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E por que INPUT não funcionou? Porque o computador fi- 
cou procurando um espaço para a entrada de dados e não 
achou (é mais ou menos isso). Mas esse problema é fácil de ser 
solucionado: basta utilizarmos a função INKEY$ ao invés da 
instrução INPUT. 


INPUT X INKEY$ 


A instrução INPUT interrompe o processamento, mostra o 
display e aguarda a entrada de um dado. Já a função INKEYS, 
apenas lê o teclado e assume o caráter, em modo de operação 
L, correspondente à tecla que estava sendo pressionada no mo- 
mento em que a função foi executada. Se nenhuma tecla for 
pressionada neste exato momento, perde-se a chance do com- 
putador aceitar um dado. 

Para simularmos um INPUT, teremos que garantir um dado 
na função INKEYS$. Para tal, podemos utilizar a instrução 
PAUSE, cujo argumento, se for superior a 32.767, interrompe- 
rá o processamento para sempre, ou até que uma tecla seja 
pressionada. Se INKEYS$ estiver logo após PAUSE, então esta- 
rá es a leitura da tecla pressionada pela função IN- 
KEYS. 

Assim, acrescentamos ao programa as linhas: 


30 PAUSE 4E4 

40 LET U$=INKEY$ 

50 PRINT AT 23,0;U$ 
60 Goro 30 


(4E4 é igual a 40.000) 
(a tecla que for pressionada será 
armazenada na variável U$) 


Ainda não está funcionando como INPUT, certo? Daí, dá 
pe perceber que teremos que escrever um programa maior; 
logo, gastar mais memória. Será realmente válido trocar uma 
função INPUT, que ocupa aproximadamente sete bytes, por 
uma rotina de 200, 300 ou até mesmo 500 bytes? 

Se temos que escolher, é bom lembrar: em que pese o maior 
gasto de memória, a função INKEY$, como entrada de dados, 
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abre uma série de possibilidades na forma como esses dados en- 
trarão no computador. Podemos até mesmo criar o nosso sis- 
tema particular de entrada, com cursores personalizados, li- 
mite" de caracteres, correção automática de erro e muito mais. 
Basta ter um pouco de imaginação. 

Para substituir INPUT, podemos lançar mão de duas roti- 
nas. A primeira delas está na figura 1. Esta rotina imprime um 
“> ” indicando onde se inicia a impressão dos caracteres que 
forem sendo digitados (30 no máximo). A linha 9000 posicio- 
nao“ >”,o qual pode ser colocado em qualquer lugar, lem- 
brando apenas que a coluna 30 será sempre o último caráter 
aceito. A partir daí, o sistema reiniciará a impressão na pri- 
meira posição válida. 
















9000 
9010 
9020 
9030 
9040 
9050 
9060 
9070 
9080 
9090 
9100 
9110 
9120 
9130 
9140 
9150 
9160 
9170 
9180 
9190 
9200 
9210 
9220 
9230 


PRINT AT 23,0;">"; 
LET L=PEEK 16398+256*PEEK 16399 
LET K=L 

POKE L,4 

PAUSE 4E4 

LET U=CODE INKEY$ 

IF U=118 THEN GOTO 9180 

IF U=119 THEN GOTO 9150 

IF U=115 THEN GOSUB 9130 

POKE L,U 

LET L=L+1 

IF PEEK L=118 THEN GOTO 9000 
Goto 9030 

LET U=0 

RETURN 

POKE L,0 

LET L=L-1 

Goto 9110 

LET U$="" 

FOR L=K TO K+30 

IF PEEK L=4 THEN GOTO 9230 

LET U$=U$+CHR$ PEEK L 
NEXT L 
RETURN 








[= 
Figura 1 — Sub-rotina 1 





A linha 9010 armazena — em L e depois em K — o endere- 
ço, no display, do primeiro item após o “> ” (no NE-Z8000 
esta variável é chamada DF-CC; no TK82-C, POSPR). Fizemos 
isso para que pudéssemos usar o POKE ao invés do PRINT, 
já que a impressão com POKE é quase instantânea. 

A linha 9030 representa o cursor. Este pode ser alterado, 
bastando que seja substituído por qualquer caráter como tal 
(neste caso, a linha 9200 também deverá ser alterada). 

ENTER e DELETE (NEWLINE e RUBOUT no TK) funcio- 
nam normalmente, mas SPACE não pode ser usado, pois in- 
terromperia o programa na linha 9050. O espaço é dado com 
SHIFT 5 (cursor para a direita). A rotina é chamada com 
GOSUB 9000 e retoma com o dado de entrada na variável 
US. Se a entrada for um dado numérico, pode-se usar LET 
U=VAL US. 

Vejamos as variáveis utilizadas (não as use no seu programa 
principal, pois elas serão alteradas): : 

L — Endereço de impressão do caráter recebido do teclado 
K — Endereço do início da impressão 

U — Código do caráter digitado 

US — Cadeia (string) de saída 

Passemos agora à segunda rotina (figura 2). Como podemos 
observar, ela é bastante semelhante à anterior, porém só pro- 
cessa dados com um determinado número de caracteres (neste 
caso, os dados devem ter seis caracteres de comprimento). 
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PRINT AT 23,8; 

LET L=PEEK 16398+256*PEEK 16399 
LET U$="" 

FOR L=L TO L+5 

POKE L,19 

PAUSE 4E4 


LET U=CODE INKEY$ 

IF U=118 THEN GOTO 9000 
POKE L,U 

LET U$=U$+CHR$ U 

NEXT L 

RETURN 





Figura 2 — Sub-rotina 2 


A linha 9030 determina o tamanho do dado de entrada, po- 
dendo ser alterada até um máximo de 30 caracteres. Quando 
terminar o loop, o sistema retorna com a variável US pronta 
para ser processada. Não há necessidade de usar a tecla EN- 
TER. Esta é usada apenas para correções; ao ser pressionada, o 
sistema reinicia a operação. 

Nesta segunda rotina, utilizamos as seguintes variáveis: 

L — Endereço de impressão dos caracteres 
U — Código do caráter digitado 


US — Cadeia (string) de saída E 





Renato iovani é formado em Comunicação Visual e Desenho Indus- 
trial pela Pontifícia Universidade Católica do Rio de Janeiro. Há mais 
de um ano utiliza o NE-Z8000 para cálculos na área em que atua. 


DGT-100 Cr$ 240.000, x 3 — Grátis 18 jogos 
CP-200 Cr$ 110.000, x 2 — Grátis 6 jogos 
Txas Cr$ 89.925, x 2 — Grátis 6 jogos 
TKB2C Cr$ 49.925, x 2 — Grátis 6 jogos 
ainda: UNITRON 
Joystick, Impr 
(Preços sujeitos a mod 
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Aprimore os arranjos musicais em seu micro variando a frequência, 
o intervalo e a duração das notas musicais. 





O som (mais harmônico) 


o nº 20 de MICRO SISTEMAS 
(edição de maio/83), foi publi- 
cado um artigo de Rudolfo Hor- 
ner Jr., intitulado “O som nosso de cada 
micro” (da pág. 26 à 28), que orienta 
quanto à produção de música nos mi- 
cros da linha Apple (como AP-II, Micro- 
engenho, Maxxi e Magic). Este trabalho, 
no entanto, apresentou um tempo fixo 
de duração das notas musicais, o que 
não possibilita um arranjo musical mui- 
to perfeito. Isso pode ser visto na linha 
210 de seu programa: 





210 POKE 6,CN(NT) : POKE 7,75 : 


CALL 768 


onde POKE 7,75 controla o tempo de 
duração da nota, que foi fixado pelo 
valor 75, mantendo-se, assim, constante. 

O programa ora apresentado, que ge- 
ra a música Cidade Maravilhosa, propõe- 
se a variar a frequência, o intervalo e a 
duração das notas musicais, conseguindo 
deste modo maior harmonia na música 
produzida. 


ENTENDENDO O PROGRAMA 


As linhas 10 e 20 do programa Cida- 
de Maravilhosa introduzem a rotina em 
linguagem de máquina responsável pela 
geração do som pelo computador. Já as 
linhas 30 e 40 introduzem o código das 
notas musicais na variável indexada CN. 
As figuras que mostram a rotina em lin- 


30 


de seu Apple 


Evandro Mascarenhas de Oliveira 





guagem de máquina e o código das notas 
musicais são, respectivamente, as figuras 
1 e 2 do artigo referido anteriormente 
(págs. 27 e 28, MS nº 20). 

As linhas 50, 70, 90 e 110 represen- 
tam os códigos das frequências das notas 
musicais (números de 1 a 9, referencia- 
dos nas posições da variável CN), o tem- 
po de duração entre as notas (número 0, 
referenciado pela duração do loop da li- 
nha 1040) e o tempo de duração de ca- 
da nota (letras de A a I, referenciadas da 
linha 1060 à 1140). Cada uma dessas 
linhas corresponde a um trecho da mú- 
sica. 

Vamos explicar, agora, a sub-rotina 
iniciada na linha 1000. Nesta linha, o 
loop vai de 1 até o comprimento da 
string N$ (LEN(N$) ),o qual represen- 
ta o trecho musical codificado, com in- 
tervalos de dois em dois (STEP 2). Deste 
modo, o loop separa da string original 
NS, as três sub-strings BS, és e DS, 
que são: 


e B$ —sub-string que contém um 
caráter numérico (de 1 a 9) pa- 
ra cada frequência da nota, um 
O que controla o tempo de exe- 
cução entre notas ou um cará- 
ter alfabético (de A até I) que 
controla o tempo de duração 
de cada nota. Assim, na string 
NS da linha 50, a cada incre- 
mento do loop, é separada 


sequencialmente a sub-string 
B$: 9F, 7F, 5G, 00, 00 ... 00 
(linha 1010); 

e C$ —sub-string que separa o caráter 
numérico da B$. Assim, quan- 
do B$ é 9F, C$ será 9; quando 
B$ é 7F, C$ será 7 etc (linha 
1020); 

e DS -sub-string que separa o caráter 
alfabético do B$. Então, quan- 
do B$ é 9F, DS será F; quan- 
do B$ é 5G, DS$ será G etc (li- 
nha 1030). 


Na linha 1050 da sub-rotina, NT re- 
torna o valor numérico da sub-string C$ 
(NT =VAL (C$)), que será usado na li- 
nha 1150, em POKE 6, CN (NT), para 
indicar qual a nota a ser tocada (códigos 
da variável CN). 

Da linha 1060 à linha 1140, cada ca- 
ráter alfabético de D$ dará um valor pa- 
ra a variável CC (de 30 a 255), que será 
usado na linha 1150, em POKE 7, CC, 
para controlar o tempo de duração de 
cada nota. 

Portanto, a linha 1150 dará a fre- 
quência da nota em POKE 6, CN (NT), 
a duração da nota em POKE 7, CC e 
chamará a sub-rotina introduzida pelas 
linhas 10 e 20, responsável pela geração 
de som, em CALL 768. 

A linha 1040, através do loop FOR 
L=1 TO 80 : NEXT, controla o tempo 
de duração entre as notas da seguinte 
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forma: para cada grupo de dois zeros 
(00) de N$, há um retardo dado pelo 
tempo de execução do loop. Para do- 
brar, triplicar etc este tempo, basta adi- 
cionar grupos de dois zeros na string NS. 

Deve-se observar que N$ tem sempre 
número par de caracteres (grupos de 
dois), sendo que um é numérico e outro 
alfabético (respectivamente, frequência 
e duração de cada nota) e grupos de dois 
zeros (00), para o intervalo entre as no- 
tas. Caso N$ fique com número ímpar 
por omissão de algum caráter, o compu- 
tador emitirá um som de baixa frequên- 
cia, facilmente perceptível, indicando 
que falta um caráter para tornar a string 
par. 


CONSIDERAÇÕES FINAIS 


O número máximo de notas é nove 
(de 1 a 9), ficando o zero para controlar 
o tempo de duração entre as notas. 

O tempo de duração da nota varia, 
neste programa, de 30 em 30, mas pode 
ser modificado para outros valores a cri- 
tério do programador. 

Se a música contiver mais de nove 
notas diferentes, o programador terá 
que modificar a codificação, trocando a 
numérica da frequência de cada nota pela 
alfabética e colocando a duração das no- 
tas com a numérica ou outra codificação 
qualquer, de acordo com sua vontade. 


A sub-divisão da música em várias 
strings N$ facilita a sua codificação, 
pois permite a correção de intervalos en- 
tre notas e de duração das notas mais fa- 
cilmente do que se colocássemos toda a 
música em uma única string. Por outro 
lado, uma única string ficaria limitada 
ao máximo de 255 caracteres, o que fa- 
talmente obrigaria a feitura de outra 
string para continuar a codificação. 





Evandro Mascarenhas de Oliveira é médico e 
exerce suas atividades em Laboratório Clínico 
e Instrumentação Médica. Trabalhou durante 
quatro anos com o computador Burroughs 
6700 do Núcleo de Computação Eletrônico 
da UFRJ, usando as linguagens FORTRAN IV 
e Algol. Tem vários artigos publicados nas 
áreas de Eletrônica Digital e Geral em revistas 
especializadas. 





Cidade Maravilhosa 

10 FOR K = 768 TO 786: READ J: 

POKE K,J: NEXT 1030 D$ = MID$ (B$,2,1) 

20 DATA 173,48,192,136,208,4,19 1040 IF C$ = "0" THEN FOR L = 1 
8,7,240,8,202,208,246,166,6, TO BO: NEXT : GOTO 1200 
76,0,3,96 1050 NT = VAL (C$) 

30 FOR K = 1 TO 9: READ CN(K): 1060 IF D$ = "A" THEN CC = 30: 
NEXT Goto 1150 

40 DATA 77,82,92,97,110,116,123 1070 IF D$ = "B" THEN CC = 60: 
+139,147 GoTo 1150 

50 N$ = "9F7F5G00007C5C7C5E004F 1080 IF D$ = "C”" THEN CC = 90: 
0000005F4G005C4C5C3G000000" Goto 1150 

60 GOSUB 1000 1090 IF D$ = "D" THEN CC = 120: 

70 N$ = "4F2F3F00004C3C5C7F8F00 Goro 1150 
008C7C5C3C4F7F9F000000" 1100 IF D$ = "E" THEN CC = 150: 

80 GOSUB 1000 Goro 1150 

90 N$ = "9F7F5G00007C5C7C5E004F 1110 IF D$ = "FP" THEN CC = 180: 
0000005F4G005C4C5C3G000000" Goro 1150 

100 GOSUB 1000 1120 IF D$ = "G" THEN CC = 210: 

110 N$ = "3F3F6H007C8C6C3F7G0000 GoTo 1150 
4C5C7C5C4F2G3F" 1130 IF D$ = "H" THEN CC = 240: 

120 GOSUB 1000 Goro 1150 

990 END 1140 IF D$ = "I" THEN CC = 255 

1000 FOR K = 1 TO LEN (N$) STEP 1150 POKE 6,CN(NT): POKE 7,CC: 

2 CALL 768 

1010 B$ = MID$ (N$,K,2) 1200 NEXT 

1020 C$ = MID$ (B$,1,1) 1250 RETURN 
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Este programa, desenvolvido no Pocket Computer 
PC-1211, é uma conversão do jogo Resta 1, desafio 
na HP-41C, publicado em MICRO SISTEMAS nº 17. 
Convém lembrar que, estando o programa em BASIC, 
você poderá rodá-lo em outros micros, desde que 
sejam feitas as eventuais modificações. 


Resta 1, desafio 


LO). 
MICRO KIT 


LANÇAMENTO: 
Livro de Basic vol. | 
Edição Própria 
CURSOS 


Basic p/adultos e crianças, com méto- 
do próprio com te eficiente; 
c/mestrado em ENGENHA- 
RIA DE SISTEMAS; mais de 20 cursos 
aplicados. Turmas pequenas aulas prá- 
ticas com MICROCOMPUTADOR. 
VENDA DE MICROCOMPUTADOR 
Unitron AP II, Digitus, TK e CP 200. 
Financiamento em até 24 meses. 


PROGRAMAS 
Comerciais e Jogos p/ APPLE, Unitron, 
Polymax, Digitus TK e CP200. 
SUPRIMENTOS 
Disquetes, Caixa p/ Disquetes, Formu- 
lários Contínuos etc. 
VENDA DE LIVROS E REVISTAS 
Despachamos para todo o Brasil. 
Rua Visconde de Pirajá, 303 S/Loja 
210 - Tels. (021) 267-8291 - 521-4638 
CEP 22410 - Rio de Janeiro 
Rua Visconde de Pirajá, 365 sobreloja 
209 - Ipanema 











no PC-1211 


Ademir Moreno Aguilar 
São Paulo-SP 
RESTA 1 
S: IF M<>BPAUSE " 11B:Y=y+1 
NUMERO INTEIRO 12B:C=<R-Y-1)74 
":; GOTO 48 139:C=C-INT C:lF C 
6: RETURN <>BTHEN 190 
18: "A"N=B: INPUT " 149:PAUSE "EU JOGU 
NUMERO =";N EI ";ysR=R-Y: 
20: IF N<IIPAUSE " GOSUB 548 
N>18":GOTO 18 158: IF R<BTHEN 520 
38:M=N-INT Nº 160: IF R=1ITHEN 589 
GOSUB 5 170:N=R: GOTO 40 
40: INPUT "UOCE JO 180: IF B=QLET Y=2: 
GA(I-3) ";A:1F B=1:GOTO 290 
CALB)+C(AD3) 198:B=8:Y=1 
PAUSE "COM ROU 20B:GOTO 140 
BO EU NÃO JOGO 508: BEEP 1: PAUSE 
": GOTO 40 GANHEI FACIL!T 
SB:M=A-INT À: ENTE OUTRA": 
GOSUB 5 GOTO 18 
6B:R=INT N-INT A: S1B:BEEP 5: PAUSE 
IF R<BTHEN 5028 PARABENS! TENT 
70: IF R=1THEN Sig E -REPETIRE 
82: GOSUB 540 GOTO 18 
90: Y=9 548: PAUSE "SOBRARA 
128: IF Y=3THEN 188 M ";R: RETURN 


mo 
[E 
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Maxxti,o micro pessoal muito 
profissional da Polymax. 


vucursao ve vemos = * 


O Max é um microcomputador pessoal — profissional de grande versatilidade 
e assegurada possibilidade de expansão. Compatível com APPLE Il 

PLUS, aceita mais de 5 mil programas aplicativos disponíveis no mercado. 
Sua característica padrão inclui um monitor e linguagem Polysoft Basic, ambas 
gravadas em ROM, com 2 kbytes e 10 kbytes, respectivamente, 48 kbytes de 
memória RAM disponíveis para o usuário; interface para gravador cassete, 
vídeo e tv colorida (sistema PALM); teclado padrão ASC Il e fonte de 
alimentação, dispostos em um gabinete próprio. 


Veja aqui sua essência técnica: 


Microprocessador 
6502 operando com frequência de 1 MHZ 


Vídeo 
O Maxi possui um vídeo profissional de 12” com fosfatização verde e pode 
conectar-se também com uma televisão comum (colorida ou preto & branco) 
operando no modo texto ou gráfico (baixa ou alta resolução), sendo 
completamente transparente ao usuário o acesso à memória. No modo gráfico, 
as últimas 4 linhas do vídeo operam no modo texto. Todos os modos de 
operação com o vídeo são selecionáveis por Software. 
Modo Texto 
* 40 caracteres/linha, 24 linhas. 
* Caracteres 5 x 7. 
* Vídeo normal, reverso e piscante. 
* Controle pleno do curso. 
Modo Gráfico 
(baixa resolução) 
* 40h x 48v ou 40 h x 40 v com 4 linhas de texto. 
* 16 cores selecionáveis por Software. 
* Comando específicos do Polysoft Basic para uso 
do Modo Gráfico: COLOR, PLOT, HLIN, VLIN, SCRN. 
(alta resolução) 


Agora vamos 
processar os dados 
.... técnicos dele. 


A memória dinâmica RAM é organizada em 3 incrementos de 16 kbytes cada 
um, num total de 48 kbytes totalmente disponíveis para o usuário. Esta 
memória pode ser aumentada conforme a necessidade do usuário adicionando 
placas de expansão. Possui também 10 kbytes de ROM para armazenamento 
do Polysoft Basic e 2 kbytes de ROM para o sistema monitor. Sistema de 
“Refresh” automático, campletamente transparente. Memória rápida — tempo 
de acesso de 350 ns. 


Entrada e Saída 

O Maxai inclui um teclado com padrão ASC Il; interface para gravador cassete, 
vídeo e tv colorida sistema PALM; um conjunto de 8 conectores para a ligação 
de cartões controladores de periféricos e expansões; 3 entradas de 1 bit, 4 
entradas analógicas para conexão de “joystick” e 4 saídas digitais de 1 bit 


Polysoft Basic 
Possui características básicas do padrão Basic com técnicas de forma a propiciar 
máximo rendimento dos recursos de Software do produto. 


Monitor 

Gravado em ROM com 2 kbytes. 

Periféricos e acessórios disponíveis 

O Maxi de concepção modular, cresce de acordo com os periféricos a ele 
incorporados, dentre os quais destacamos: TV comum, a cores ou preto & 
branco — Monitor profissional Polymax de 12” com fosfatização verde — 
Unidade de drives de disquetes de 5/4”, organizado com 25 trilhas, 16 setores 
de capacidade de 256 bytes cada um — Unidade de gravador cassete — 
Interface serial para impressora — Impressora Polyprint 90 CPS de 80/132 
colunas — Controladores de jogos — Interface serial para comunicação de 
dados — Modem — Placa de expansão de memória RAM para 64 kb — Placa 
de CPU Z-B0 (sistema operacional CP/M) — Placa Videx expansora de vídeo de 
40 para 80 colunas — modulador de R.F. 














* 280h x 192 vou 280 h x 160 v com 4 linhas de texto. RE EN 

* 6 cores selecionáveis por Software, T——— a LIA 

* Comandos específicos do Polysoft Basic para uso no modo * Outros produtos da = EA 
gráfico: HCOLOR, HPLOT. . Fou sm wP ( obcriha e = "a 

* ima do vídeo residente em 8 kl bo a 
Imagem do vídeo residente e! bytes. CRS 2a DE = POLINET re Pa 
rsnada fagmax 


FILIAIS ABC (SP) - Fone: 454-4922 - BELO HORIZONTE (MG) - BRASÍLIA (DF) - Fone: 225-1456 - CURITIBA (PR) - Fone: 2336632 


HOR 
PORTO ALEGRE (RS) - Fone: 42-3311 - RIO DE JANEIRO (Rj) - Fone: 252-8274 - SÃO PAULO (SP) - Fone: 283-3722 a 
Filiada à ABICOMP 


772 - BELO HORIZONTE (MG): Compucity - 2266336 - Computronics - 225-3305 - Julio Lobos - 225-6519 - BRASÍLIA (DE): Compushow - 273-2128 - GB - 2426344 - MB - 226-5914 - Vídeo Service 
Microsystems - 51-3542 - Microtok - 32-3910 - CAXIAS DO SUL (R$): Digipampa - 221-4559 - CURITIBA (PR): Comicro - 22456 16 - Compustore - 232-1750 - Compusys 
tem - 243-1731 - DUQUE DE CAXIAS (Rj): CPM - 7710312 - FORTALEZA (CE): General Data - 226-2610 IA (GO): Gendados - 224-5487 - ITAJAÍ (SO): Entec - 440244 - JOINVILLE (50): Comicro - 22-5858 - JUIZ DE FORA (MG): Vermac - 212-3809 
LONDRINA (PR): Comicro - 23-0065 - MANAUS (AM): CPD - 237-1793 - MOGI DAS CRUZES (SP): Runners House - 468-3779 - NOVO HAMBURGO (RS): Micromega - 93-4721 - PASSO FUNDO (RS): Digipampa - 312-3169 - PELOTAS (RS): CCS - 254139 
PIRACICABA SP; Sogeme.- 342100 - PORTO ALEGRE (RS: Adtancing -2:8246 - DB - 225136 d- 24-1411 - Informatic - 21-4189 « Microsis - 22-9782 - Processa - 26-093%6 - RIBEIRÃO PRETO (SP): Compusys - 635-1195 - Khedis 634-1715 - Memocards 
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Para os amantes da música aqui vai um menu que proporciona decodificar 
qualquer acorde e aplicá-lo nas harmonizações de jazz. 





Jazz Cibernético 





finalidade deste artigo é empre- 
gar o microcomputador (NE, 
TK e CP-200) na análise da for- 
mação dos acordes característicos do 
jazz tradicional, decodificando-os. Isto 
só se torna possível graças à adoção da 
escala temperada, antevista por Ra- 
meau e Bach, atualmente de uso impera- 
tivo nos instrumentos ocidentais de tons 
fixos. 





Antes de vermos como isto acontece, 
falaremos um pouco do surgimento do 
jazz. 


Admite-se que O jazz tenha a sua ori- 
gem nos cantos e nas tradições musi- 
cais, provenientes do caldeamento de 
elementos afro e euro-americanos, na 
região Sul dos Estados Unidos, notada- 
mente em Nova Orleans. A partir deste 
estágio inicial de formação, em fins do 
século passado, a população branca to- 
mou contato com o material sonoro e 
rítmico que caracteriza O jazz. 
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Neste processo de assimilação identi- 
fica-se uma série de etapas adaptativas, 
ainda não encerradas. Algumas delas po- 
dem ser apontadas com segurança, como 
o Dixieland, no princípio de nosso sécu- 
lo, em Nova Orleans; e o Chicago Jazz, 
da década de vinte, quando o centro de 
gravidade do jazz se desloca para o nor- 
te, rumo a Chicago, , sofrendo contri- 
buições individuais importantíssimas e 
transformando-se num verdadeiro estado 
de espírito. 


TEMPERO MUSICAL 


Vejamos agora em que consiste a es- 
cala temperada e a implicação que traz 
para o emprego do microcomputador 
nos meandros da harmonia do jazz. 

Imagine o teclado de um piano, por 
exemplo. Partindo de uma nota qual- 
quer, uma sucessão de doze quintas justas 
produz toda a gama cromática e recai so- 
bre a nota inicial da sequência. E bom 
lembrar que uma quinta justa é o inter- 


valo que existe por exemplo entre um 
Dó e o Sol subsequente; e escala cromá- 
tica é aquela que seria obtida se partís- 
semos de uma nota qualquer e fôssemos 
tocando as demais na ordem em que se 
apresentam no teclado. 

Entretanto, se afinarmos exatamente 
cada uma destas quintas na razão de 
suas frequências, isto é, 3/2, a última 
nota produzida não estaria em unísso- 
no com a primeira e sim claramente 
mais alta. Aquilo que chamamos de tem- 
peramento igual da escala consiste, sim- 
plesmente, em proceder-se à afinação de 
cada quinta diminuindo-se de 1/12 do 
valor em que a última quinta excede a 
primeira. 

Deste modo a escala cromática esta- 
rá dividida em doze intervalos iguais, o 
que possibilita, na prática, a transposi- 
ção de uma melodia dada para qualquer 
tonalidade, sem que esta se altere. Este 
fato é fundamental para o emprego do 
micro na análise que faremos. 
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Um aspecto importante é que sendo 
o jazz atual fruto de uma improvisação 
consciente, tende a desafiar a notação 
musical tradicional. Além disto empre- 
ga material harmônico que, embora seja 
conhecido da harmonia tradicional, não 
leva em consideração regras de aplica- 
bilidade. Como consequência, muitas ve- 
zes, uma partitura de jazz pode se apre- 
sentar como no trecho da música “Sum- 
mertime” de Gershwin (figura 1). 

Representamos as notas de acordo 
com o chamado cifrado internacional: 
C= Dó,D=Ré,E =Fá, G=Sol, A =Lá, 
B = Si. Em computador dotado de alta 
densidade de vídeo e memória expandi- 
da com unidade de disco, o programa 
poderia conter a visualização das notas 
no pentagrama. Seria oportuno, também, 
ver a sintetização dos sons correspon- 
dentes. 

Observe ainda que a notação da mão 
esquerda (“de acómpanhamento”) foi 
substituída por um conjunto de cifras, 
do tipo E+, Am6, E7, etc. O programa 
que apresentamos interpreta e traduz es- 
tas cifras em notas musicais convencio- 
nais. Vejamos como isto é feito. 


TRADUÇÃO DAS CIFRAS 


Em primeiro lugar lembremos que o 
material sonoro do jazz é composto por 
uma escala pentatônica (cinco tons in- 
teiros), como mostra a figura 2. Esta é 
ampliada pelo acréscimo de uma terça 
menor e uma sétima menor (as notas 
blue) dando origem a um modo hepta- 
tônico, conforme demonstra a figura 3. 

Enquanto o modo heptatônico pos- 
sui valor melódico, o modo pentatônico 
dá origem aos dois acordes mais caracte- 
rísticos do jazz, isto é, o acorde de sex- 
ta (empregado por Gershwin no segundo 
e no terceiro compassos do exemplo 
mostrado: Am6) e o acorde de nona. 

Vimos que o temperamento igual da 
escala possibilita o tratamento de todos 
os intervalos como equidistantes. Para 
fins do programa, a escala do piano foi 
numerada, a partir do Dó central (o Dó 
da “fechadura”, atribuindo-se um nú- 
mero sequencial inteiro a cada nota. 

O programa é acessado a partir de um 
primeiro menu, onde constam as notas 
da escala musical, na seguinte ordem: 


I=C= DO 
2=C é = DO SUSTENIDO (abreviado 
ST 





=FA 
7=F & =FA SUST 
8=G=SOL 
9=G%=SOLSUST 
10=A=LA 
11=A & =LA SUST 
12=B=S 
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Figura 2 


Figura 3 


Gostaria de fazer duas observações a 
respeito deste menu. A primeira delas é 
que a sequência pode ser repetida, isto 
é, o Dó da oitava seguinte seria igual a 
13 e assim por diante (isto está feito no 
programa até o número 33). A segunda 
é que só utilizamos a alteração ascen- 
dente (sustenido) por razões gráficas, 
embora sabendo da enarmonia que Dó 
sustenido = Ré bemol, etc. 

Depois de digitada a tonalidade, apa- 
rece uma pergunta que irá conduzir, por 
razões de técnica harmônica e coinci- 
dentemente computacional, a dois me- 
nus secundários diferentes: o dos acor- 
des sem alteração e o dos acordes alte- 
rados. 

Chamamos acordes sem alteração os 
que são construídos essencialmente com 
o material contido no modo heptatôni- 
co já mostrado. São eles: 


O: Maior 

M: Menor 

6: Maior com sexta 

9/6: Acorde com sexta e nona (maior) 


.7: Sétima (maior) 


M7: Sétima (menor) 

DIM: Acorde diminuto 

9: Maior com nona 

M9: Menor com nona 

11: Décima-primeira (maior) 
13: Décima-terceira (maior) 


Aqui, também, algumas observações 
são importantes: 
e Na prática o acorde maior fica suben- 
tendido, isto é, G=Sol maior; 
e O acorde menor é notado com m mi- 
núsculo (não disponível no NE-Z 8000): 
Gm = Sol menor. O mesmo se dá para 
qualquer acorde do modo menor: Amé= 
Lá menor com sexta; 
e O acorde de quinta e sétima diminu- 
tas, abreviadamente chamado de dimi- 
nuto é por vezes notado como º, isto é: 
DO =acorde diminuto de Ré; 


e Os acordes sem alteração, à exceção 
dos de 11 e 13, são tetrafônicos (quatro 
notas). 

São acordes alterados todos aqueles 
que implicam em mudanças ascendentes 
ou descendentes nas notas que com- 
põem o modo heptatônico dado. Entre- 
tanto, não se alteram a fundamental, a 
terça e a sexta. 

O menu dos acordes alterados irá 
mostrar: 


às) acorde aumentado (quinta aumenta- 
da 

5-= quinta diminuta 

7+ =sétima maior (acorde maior) 

M7+ =sétima maior (acorde menor) 

9+ =nona aumentada 

9-=nona diminuta 

11+ =décima primeira aumentada 
13-=décima terceira diminuta 


Observe que os acordes alterados es- 
tão cifrados convencionalmente e são, à 
exceção de 11+ e 13-, pentafônicos 
(cinco notas); e que a lista não é exausti- 
va, O próprio leitor conhecedor do jazz 
atual sabe que estão em uso acordes 
mais exóticos. 

Depois de teclar a tonalidade, optar 
pelo acorde alterado ou não, e escolher 
o menu com o restante da cifra veremos 
impresso no vídeo uma sequência nu- 
mérica do tipo: 


= 9 
13 17 


seguida de uma pergunta: DECODIFI- 
CAÇÃO(S/N)?. Isto possibilita a qual- 
quer pessoa, mesmo sem conhecer a no- 
tação musical, executar o acorde selecio- 
nado, desde que numere o teclado como 
se segue: 


*E* 
*G 1 * 
*Ç* 
*p* 


Desta forma, todos os intervalos fo- 
ram transformados em sequências nu- 
méricas e cada sequência representa o 
acorde pedido. 

Respondendo sim à pergunta anterior 
aparece a seguinte mensagem: DIGITE 
O CÓDIGO; que deverá ser respondida 
com a sequência numérica, em ordem 
crescente e seguida de um zero, se o 
acorde for tetrafônico ou pentafônico. 
Daí então aparecerá a sequência de no- 
tas do acorde pedido: (veja figura 4),4E 
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CH DX 








Figura 4 


seguida de uma pergunta: OUTRO 
ACORDE(S/N)?; que remete ao menu 
principal ou encerra o processamento. 
Veja que em nosso exemplo a se- 
quência de notas obtidas decodifica o 
acorde E+, que vem a ser o primeiro 








exemplo dado (“Summertime” de Ger- 
shwin). Com isto, está claro que pode- 
mos decodificar qualquer acorde em 
qualquer tonalidade (desde que conste 
do menu) e aplicá-lo nas harmonizações 
do Jazz tradicional. 
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SOFTWARE 
O Combustível do Computador 


Programas para CP 500, DGT 100, TRS 80, Dismac, Polymax e outros. 
Temos disponiveis mais de 50 programas específicos, em 
fita ou diskete, para aplicações diversas. 


TABELA DE PREÇOS — PROMOÇÃO ESPECIAL 


DoDBDoNNBaBos 
vovvwadas 
ss8ssss88s 


vir 





ssssssssss8ss: 


Av. Rio Branco, 45 gr. 1311 
Tel (021) 263-1241 
CEP 20090 — Rio de Janeiro. 





CURSOS DE BASIC 
SOLICITE NOSSO 

















CATÁLOGO OU VISITE 
NOSSO SHOW-ROOM. 


Você também encontra esses programas em nossos revendedores credenciados. 
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DESCONTOS PARA 
REVENDA 
ATENDIMENTO POR 
REEMBOLSO POSTAL 
PARA TODO O BRASIL. 

















CONTABILIDADE GERAL 
PARA 


CP500 — DGT—100 — TRS-80 
E OUTROS 








| 
' 












Acordes de Jazz 


10 REM PGM JAZZ HARMONY 1 

20 REM PGMER MARCUS BRUNETTA 
21 REM JAN/1983 

25 


cLs 

30 PRINT AT S,0p"tinanaananananaaaaaanaa 
aeaman 

40 PRINT "QUAL E A TONALIDADE ?* 

50 PRINT TAB 7 ;“"1=C=D0" 

60 PRINT TAB 7 ;"2=C% =DO SUST" 

70 PRINT TAB 7;" 3=D=RE" 

80 PRINT TAB 7 ;"4=D% =RE SUST" 

90 PRINT TAB 7 ;"5=E=MI" 

100 PRINT TAB 7; "6=P=FA" 

110 PRINT TAB 7; "7=F% =PA SUST" 

120 PRINT TAB 7; "8=G=SOL” 

130 PRINT TAB 7; "9=G% =SOL SUST" 

140 PRINT TAB 7; "1O=A=LA" 

150 PRINT & =LA SUST" 

160 PRINT 

170 PRINT ">>>>>>>>DIGITE 

180 INPUT T 

190 CLS 

200 PRINT AT 10,0; "ttrtanaananaaannaatas 
amem 

201 PRINT “ACORDE ALTERADO ?(S/N)" 

502 PRINT "MRRRRARARaaRaRaanAA aaa ana 

na. 


203 INPUT Q! 

204 IF Q$="S" THEN GOTO 342 

205 CLS 

206 PRINT AT 5,0; "QUAL E A CIFRA?” 

220 PRINT TAB 7; "O=MAIOR" 

230 PRINT TAB 7; "M=MENOR" 

240 PRINT TAB 7; "6=SEXTA" 

245 PRINT TAB 7; "M6=MENOR C/SEXTA” 

250 PRINT TAB 7; "9/6=SEXTA E NONA” 

270 PRINT =MAIOR C/SETIMA" 

280 PRINT TAB 7; "M7=MENOR C/SETIMA” 

290 PRINT TAB 7; "DIM=DIMINUTO" 

300 PRINT TAB 7; "9=NONA (MAIOR) 

305 PRINT TAB 7; "M9=NONA (MENOR) " 

310 PRINT TAB 7; "11=DEC.PRIMEIRA (MAIOR)" 

330 PRINT TAB 7; "13=DEC.TERCEIRA MAIOR)" 

341 GOTO 2900 

342 CLS 

343 PRINT AT S,0p"resemeasanaaaaas 
asenanananan 

344 PRINT "QUAL E A CIFRA?” 

350 PRINT TAB 7; "+=AUMENTADO (QUINTA AUM;)" 

360 PRINT TAB 7;"5-=QUINTA DIMINUTA” 

380 PRINT TAB 7;"7+=SETIMA MAIOR" 

390 PRINT TAB 7;"M7+=SETIMA MAIOR(AC.ME- 
NOR)" 

400 PRINT TAB 7;"9+=NONA AUM. (AC.MAIOR) " 


410 PRINT TAB 7;"9-=NONA DIM. (AC.MAIOR) " 

420 PRINT TAB 7;"11+=DECIMA-PRIMEIRA AUM. 
(AC.MAIOR) * 

430 PRINT TAB 7;"13-=DECIMA-TERCEIRA DIM. 
(AC.MAIOR) "* 

440 PRINT ">>>>>>>>DIGITE*ttA%ANAM 

450 INPUT C $ 

460 IF C$="+" THEN GOSUB 500 

470 IP C$="5-" THEN GOSUB 600 

480 IFP C$="7+" THEN GOSUB 700 

490 IF C$= "M7+"THEN GOSUB 800 

491 IP C$ "9+" THEN GOSUB 900 

492 IFP C$="9-" THEN GOSUB 1000 

493 IP C$="11+'* THEN GOSUB 1100 

494 IP C$="13-" THEN GOSUB 1200 

500 cLS 

501 PRINT AT 10,0 ;T,T+4,T+8,T+12 

505 GoTO 1900 

540 RETURN 

600 CLS 

601 PRINT AT 10,0 ; T,T+4,T+6,T+12 

602 GoTO 1900 

605 RETURN 

700 cLS 

701 PRINT AT 10,0 

702 GoTo 1900 

705 RETURN 

800 cLS 

801 PRINT AT 10,0 ; T,T+3,T+7,T+11 

802 Goro 1900 

805 RETURN 

900 CLS 

901 PRINT AT 10,0 ; T,T+4,T+7,T+10,T+15 

902 coro 1900 

905 RETURN 

1000 cLS 

1001 PRINT AT 10,0 ;T,T+4,7+7,T+10,T+13 

1002 Goro 1900 

1005 RETURN 

1100 cLS 

1101 PRINT AT 10,0 ;T,T+4,T+7,T+10,T+14, 
+18 

1102 Goto 1900 

1105 RETURN 

1200 cLS 

1201 PRINT AT 10,0 ; T,T+4,T+10,T+14,T+ 

17,7+20 





emma 











FT T+, 747, T+11 
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1202 Goto 1900 

1205 RETURN 

1900 PRINT "**DECODIFICAÇÃO? (S/N) * 

1910 INPUT D$ E “g 

1930 IF D$="N" THEN GOTO 2018 

2000 REM SUBROT DECOD 

2001 PRINT ">»>DIGITE O CODIGO*%*" 

2002 FOR J= 1 TO 6 

2003 INPUT L 

2004 IF L=1 OR L=13 OR L=25 THEN PRINT 
TAB 9; "CA" 

2005 IF L=2 OR L=14 OR L=26 THEN PRINT 
TAB 9; "*CWA* 

2006 IF L=3 OR L=15 OR L=27 THEN PRINT 
TAB 9; "apar 

2007 IF L=4 OR L=16 OR L=28 THEN PRINT 
TAB 9; "DRA" 

2008 IF L=5 OR L=17 OR L=29 THEN PRINT 
TAB 9; "ES" 

2009 IF L=6 OR L=18 OR L=30 THEN PRINT 
TAB 9; "pas 

2010 IF L=7 OR L=19 OR L=31 THEN PRINT 
TAB 9; "epa" 

2011 IF Leô OR Le20 OR L=32 THEN PRINT 





OR L=33 THEN PRINT 


TAB 9; "GA" 
2013 IF L=10 OR L=22 THEN PRINT TAB 9; 
nana 


2014 IF L=11 OR L=23 THEN PRINT TAB 9; 
ar ah 

2015 IF L=12 OR Le24 THEN PRINT TAB 9; 
“apar 


2016 IF L=0 THEN GOTO 2018 

2017 NEXT 3 

2018 PRINT"OUTRO ACORDE? (S/N) " 

2019 INPUT 2$ 

2020 IF 2$="S" THEN GOTO 25 

2024 sTOP 

2900 PRINT ">>>>>>>> DIGITE t2424n 
2910 INPUT F$ 

3000 IF F$="0" THEN GOSUB 3050 

3002 IF F$="M" THEN GOSUB 3060 

3003 IF P$="6" THEN GOSUB 3070 

3004 IF F$="9/6" THEN GOSUB 3080 
3005 IF F$="7" THEN GOSUB 3090 

3006 IF P$="M7” THEN GOSUB 3100 

3007 IF F$="DIM" THEN GOSUB 3110 
3008 IF F$="9" THEN GOSUB 3120 

3009 IF P$="11" THEN GOSUB 3130 
3010 IF P$="13" THEN GOSUB 3140 
3011 IF F$="M9" THEN GOSUB 3150 
3012 IF F$="M6"” THEN GOSUB 3160 

3050 cLS 

3051 PRINT AT 10,0 ;T,T+4,7+7,T+12 
3052 GOTO 1900 

3053 RETURN 

3060 CLS 

3061 «PRINT AT 10,0 ;T,T+3,T+7,T+12 
3063 GOTO 1900 

3065 RETURN 

3070 CLS 

3071 PRINT AT 10,0 ;T,T+4,T+7,T+9 
3072 GOTO 1900 

3073 RETURN 

3080 CLS 

3081 PRINT AT 10,0 ;T,T+4,T+9,T+14 
3082 GOTO 1900 

3083 RETURN 

3090 CLS 

3091 PRINT AT 10,0 ;T,T+4,T+7,T+10 
3093 GOTO 1900 
3095 RETURN 

3100 CLS 

3101 PRINT AT 10,0 
3102 GOTO 1900 
3103 RETURN 

3110 CLS 

3111 PRINT AT 10,0 
3112 GOTO 1900 
3113 RETURN 

3120 CLS 

3121 PRINT AT 10,0 ;T,T+4,T+0,T+4 

3122 GOTO 1900 

3123 RETURN 

3130 CLS 

3131 PRINT AT 10,0 ;T,T+4,T+0,T+14,T+17 
3132 GOTO 1900 

3133 RETURN 

3140 CLS 

3141 PRINT AT 10,0 sT,T+4,T+0,T+14,T+21 
3142 GOTO 1900 
3143 RETURN 

3150 CLS 

3151 PRINT AT 10,0 
3152 Goro 1900 
3153 RETURN 

3160 CLS 

3161 PRINT AT 10,0 sT,T+3,7+7,7+9 

3162 GOTO 1900 = 
3163 RETURN E» 











PT T43,T47 410 


PT T+3,T+6,T+9 


sT,T+3,T410,T+14 














— Cursos de com 
APOSTILA PRÓPRIA e AU- 
LAS PRÁTICAS em diversos 
MICROCOMPUTADORES 

— Todas as principais marcas 
de MICROCOMPUTADORES 
pelo menor preço com crédi- 
to direto em até 24 MESES 

— Programas prontos ou por 
encomendas tanto de jogos 

MICROCENTER TICA LTDA. 

Rua Conde de Bonfim, 229 - Lojas 320 e 

312 — Galeria Cinema III - Tel: 264-0143 

- Cep 20520 - Tijuca - Rio de Janeiro - RJ 





EM PD, TUDO 
O QUE VOCÊ 
NECESSITA NUM 
SÓ FORNECEDOR! 


E a Supply não tem apenas todo e qualquer ti- 
po de material para CPD's. Tem também os 
melhores preços e a mais rápida entrega. Isso 
porque a Supply tem um estoque completo das 
melhores marcas existentes no mercado, po- 
dendo assim atender — com a mesma eficiên- 





Suprimentos e Equipamentos para Proces- 
samento de Dados Ltda. 

Rua Padre Leandro, 70 — Fonseca 

CEP 24120 — Tel.: 722-7937 Niterói — RJ. 











Softec Engenharia de Sistemas 
A Ltda., há 12 anos atuando na 

área de Processamento de Da- 
dos em São Paulo, lançou, no final do 
semestre passado, O primeiro microcom- 
putador brasileiro a utilizar a tecnologia 
dos microprocessadores de 16 bits. 

É o EGO, que é compatível em hard- 
ware e software com o IBM Personal 
Computer e vem com dois sistemas ope- 
racionais: o CP/M-86 e o Analix. Além 
disso, o EGO tem alta resolução gráfica, 
cores, grande versatilidade de uso de pe- 
riféricos e de comunicações (inclusive 
como terminal de computadores maio- 
res) e recursos para operar em multi- 
programação, com até oito terminais 
simultaneamente. 


HARDWARE 


A unidade central de processamento 
do EGO está apoiada no microproces- 
sador Intel 8088, de 16 bits e clock de 
5 MHz, que conta ainda com o apoio 
de um co-processador aritmético de 
ponto flutuante, o Intel 8087 de 16 
bits. 

O EGO tem 48 Kb de memória ROM 
onde reside seu software básico e 64 Kb 
de memória RAM disponíveis para o 
usuário, com expansão prevista para até 
1 Megabyte. 

Seu teclado é standard, com caracte- 
res maiúsculos, minúsculos e especiais, 
teclado numérico reduzido, oito teclas 
de comando e dez teclas de função. Ele 
é comandado por um microprocessador 
próprio, independente do processador 
principal do micro, e possui buffer de 
20 caracteres, destacando-se ainda a re- 
petição automática de caracteres e a 
possibilidade de operação a até 1,60 me- 
tros do microcomputador. 

O sistema básico do EGO vem com 
um monitor de vídeo a cores com um 
display de texto de 25x80 ou 25x40 ca- 
racteres, compostos em matriz de 5x7. 
A apresentação dos caracteres pode ser 
em preto e branco — com as opções de 
vídeo reverso, alto brilho (high-light) 
e campo piscante — ou em cores, com os 
mesmos atributos do P&B, acrescidos de 
16 tonalidades e 8 cores básicas. No 
modo gráfico, pode-se plotar gráficos de 
funções com dois tipos de resoluções: a 
cores com 200x320 pontos, ou em pre- 
to e branco com 200x640 pontos. 

Em sua configuração básica, o EGO 
já vem com duas unidades de disquete 
de 5 1/4”, que podem ser de dupla face 
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e densidade e são instaladas no próprio 
gabinete da UCP. Mais duas unidades de 
disquete podem ser ligadas ao EGO, 
cujo controlador de discos permite o 
uso de unidades de 8”, dupla face e den- 
sidade, permitindo combinações entre 
os dois tamanhos de disquetes, sendo 
apenas obrigatório que um dos quatro 
disquetes seja de 5 1/4”. Além disso, o 
sistema aceita até quatro unidades de 
disco rígido tipo Winchester, com capa- 
cidades de 5 ou 10 Mb, com a promessa 
da Softec de futuramente ligar ao EGO 
unidades com discos de 40, 80 e 96 Mb. 

O EGO pode ser ligado a impressoras 
paralelas e seriais, utilizando simultanea- 
mente um máximo de três impressoras 
de até 340 CPS ou até 600 LPM. 

Através de um adaptador de comu- 
nicação assíncrona, o EGO pode ser li- 
gado a redes de teleprocessamento que 
podem incluir outros EGOs, computa- 
dores de maior porte (mainframes) e re- 
des de videotexto, como a Dow Jones 
News ou a Source. Para breve a Softec 
também promete um adaptador para co- 
municação síncrona que fará a interface 
com os controladores de comunicação 
3704/05, emulando a estação 3276, a 
3274, terminais 3278-8 e 3278-12 e 
impressoras 3287-2. A ligação será feita 
através de cabos coaxiais aos controla- 
dores 327x, com protocolos BSC 1,3e, 
futuramente, X:25. 


SOFTWARE 


O EGO possui dois sistemas operacio- 
nais à disposição do usuário, o CP/M-86 
eo Analix. 






O CP/M-86 é uma versão do CP/M 
para micros de 16 bits que permite mul- 
tiprogramação (multi-task) e tem dispo- 
níveis compiladores para BASIC, CO- 
BOL ANS 74, Pascal, etc. 

O Analix, compatível com o sistema 
operacional Unix, utiliza-se da lingua- 
gem C (uma linguagem recente de gran- 
des recursos para o desenvolvimento 
tanto de utilitários como de novos co- 
mandos — veja MS nº 19) e comporta 
multiprogramação, suportando até oito 
terminais e um número de programas 
proporcional à memória disponível do 
sistema. 

Como aplicativos, a Softec está cre- 
denciando software-houses nacionais pa- 
ra o desenvolvimento de pacotes co- 
brindo a área administrativa/comercial e 
a gestão de empresas específicas, como 
Transportadoras, Agências de Turismo 
etc. 

O software de apoio já disponível 
inclui um Editor de Textos, o SOFText, 
e uma Planilha Eletrônica de Cálculos, o 
SOFTECalc. Para breve, a Softec pro- 
mete os seguintes pacotes: Gerenciador 
de Banco de Dados — DBMS II; Sistema 
de Auto-Treinamento; Suporte Gráfico 
— SOFTGraf; Suporte de Comunicações 
— SOFTECom; e Suporte para uso em re- 
des Ethemet. 

Numa configuração com dois disque- 
tes de 5 1/4” e monitor de vídeo a co- 
res, O equipamento está custando apro- 
ximadamente Cr$ 7,8 milhões. 

A Softec fica na Rua Camboriú, 255, 
São Paulo, SP, CEP 05058, Tel. (011) 
260-6800. = 

[E 
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UM NOVO 
CONTROLE 








“NAS PRINCIPAIS 
"EMPRESAS 
DO PAIS. 


Todas as empresas aí abaixo estão agora sob 
o controle dos microcomputadores AP II 
comprados na Clappy. E você quer saber por 
quê? Primeiro: devido a sua extrema 
flexibilidade e fácil manuseio, o AP Ilé o 
microcomputador mais adequado para as 
necessidades das pequenas, médias e grandes 
empresas. 

Com memória básica de 48 K, ele pode ser 
expandido com 384 K, adicionais. No AP II 
podem ser conectadas até 6 unidades de disco 
além de placas para utilização de CP/M, vídeo 
de 80 colunas e impressoras seriais ou 
paralelas 

Outra vantagem do AP II é que ele aceita todos 
os programas e todos os periféricos do 
microcomputador de maior sucesso nos EUA 
o APPLE 

Segundo: na Clappy.estas empresas 
encontraram o menor preço e as melhores 
condições de pagamento do mercado, 

além de equipe técnica altamente 
especializada e assistência técnica durante 

e após a garantia. 

Compre você também um AP II na Clappy 
Sua empresa ficará em boa companhia 


PETROBRAS, COMPA 
INTERNACIONAL DE 




























SIDADE 
RO, COLEGIO 


AMERICANA DO RIO 
BANCO DO BRASII 


OTORRINOS 
dezenas de outr presas e profissionais 


ABERTA TAMBÉM AC libe 


Centro: Av. Rio Branco. 12. loja e sobreloja 
n 283-3588. 253-3395. 253-3170. 234-0214. 234-1015 
Rio de Janeiro - RJ 


Breve Clappy Copacabana. Show Room: Rua Pompeu Loureiro. 99 Entregamos em todo o Brasil pelo reembolso VARIG 























Transforme em um teclado de piano as teclas de seu micro da linha 
TRS-80 Modelos 1/lll. E consiga, além dele, muitos outros efeitos sonoros. 


Simule um 


piano em seu 


teclado 


Newton Braga Júnior 


programa Piano simula o tecla- 

do de um piano através das te- 

clas de seu DGT-100 (ou, con- 
se 


quentemente, de micros da família 
TRS-80 Modelos I/III, como: D-8000/ 
1/2, CP-500, CP-300, Naja, JR Sysdata e 
JP-01). 

É apresentado em duas listagens: a 
emas ie 1 — Piano, é o programa para 
simulação do teclado de piano sr 
mente dito; a Listagem 2 — Outros Efei- 
tos, é uma variação de efeitos sonoros, 
ou seja, se você substituir, na Listagem 
1, as linhas 3,4 e 11,0 teclado de seu 
micro será um gerador de efeitos sono- 
ros dos mais variados, podendo até gerar 
efeitos especiais. 

O programa Piano é simples e não re- 
quer um nível de conhecimento de pro- 
gramação muito elevado. Mas se você já 
tem alguma noção de BASIC, altere os 
valores da linha 11 e consiga efeitos so- 
noros ainda mais loucos. 


Newton Duarte Braga Júnior tem curso de 


programação COBOL pela Datamec e de pro- 
gramação FORTRAN pela Universidade Fede- 
ral de Minas Gerais. Seu interesse por eletrô- 
nica começou no Curso da Escola Técnica Re- 
zende Ramell e, a partir de 1980, vem amplian- 
do seus conhecimentos na área de computa- 
ção. Atualmente é proprietário de dois mi- 
cros: DGT-100 e PC-1500. 





Listagem 1 — Piano 
5 CLS:CLEAR1000:S$=STRING$ (63,"*") :PRINTO448 
,S$;0532, "PIANO ELETRONICO";0576,5$; 
10 DEFINT A-Z:DIM B(128) 
11 POKE16526,0:P0KE16527,125 
15 FORX=32000T032023:READA:POKEX,A:NEXTX 
16 DATA 205,127,10,14,255,221,33,255,56,237, 
89,69,16,254,28,203,155,175,221,190,0,200,24 
,241 
20 READ B(8),B(9),B(10),B(13),B(31) 
21 FORX=44TO59: READB (X) :NEXTX 
22 FORX=64T091:READB (X) :NEXTX 
30 DATA25,26,27,38,39,47,12,48,49,10,1,2,3,4 
154641,8,9,11,37,24,28,44,42,30,16,3,2,32,33 
,21,34,35,36,46,45,22,23,14,17,29,18,20,43,1 
5,41,19,40,13 
33 R$=INKEY:IFR$=""THEN33 
40 A=ASC(R$) :C=B(A) 
45 Y=250-5*C 
50 X=USR(Y) 
60 GoTO33 


Listagem 2 — Outros Efeitos 


FORX=32000T032033:READA:POKEX,A:NEXTX 
DATA205,127,10,14,255,221,33,255,56,62,1, 
85,71,237,89,28,203,155,16,254,21,32,245,60, 
188,32,240,175,221,190,0,200,24,231 
45 Q=INT(ABS((C-2)/8)) :Y=256*2+(Q+1)+2+(C-8* 
Q) 
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As linhas completas de 
microcomputadores, das marcas 
de absoluta qualidade, você 
encontra na Imarés. E em regime 
de pronta-entrega. 

Parece igual a outras lojas de 
computadores? Mas não é. Para 
início de conversa, a Imarés 
implantou uma filosofia própria 
de comportamento que engloba 


uma série de serviços: coloca 
equipamentos, softwares e 
pessoal experiente à disposição 
da sua clientela e dá global 
orientação de compra do 
equipamento adequado às suas 
necessidades, atuais e futuras. 
Feita a escolha, o seu 
relacionamento com o 
microcomputador será de 


permanente trangiiilidade. 

A Iniarés tem um corpo de 
técnicos de hardware e software 
altamente especializado, pronto 
a prestar plena assistência 
técnica e manutenção, sempre 
que necessário. E de mais 

a mais, na Imarés o seu micro tem 
dupla segurança: da própria 
Imarés e do fabricante. 

















Na Imarés 
seu micro tem 





upia segquranc 
imare” 


microcomputadores 

















Av. dos Imarés, 457 - Tels.: 61-0946/4049 - CEP 04085 - Moema - SP 
Rua Dr. Renato Paes de Barros, 34 - Tels.: 881-0200/1 156 - CEP 04530 - Itaim - SP | 








As técnicas que remontam à Criptografia clássica, numa introdução 
aos sistemas criptográficos da era do computador. 





Criptografia, uma arma 
contra os piratas? —I 


Candido Fonseca da Silva 


ste artigo apresenta algumas considerações sobre siste- 

mas de criptografia para dados atualmente conheci- 

dos, apontando vantagens, desvantagens, pontos polê- 
micos, suas aplicações e as possibilidades de serem incorpora- 
dos ao quotidiano dos usuários de micros. 


Para tanto apresentamos, da forma maus resumida e objetiva 
possível, um relato sobre o desenvolvimento das técnicas crip- 
tográficas, quer anteriores, quer posteriores ao advento dos 
computadores (estas últimas, na segunda parte do artigo, a ser 
publicada em MICRO SISTEMAS nº 25). 


Durante séculos, Criptografia — ciência que trata das mensa- 
gens secretas sob forma escrita — tem sido um valioso trunfo 
para as comunidades militares e diplomáticas; tão valioso que 
sua prática sempre foi envolvida em segredo e mistério. Hoje, 
contudo, o espetacular progresso das Telecomunicações e da 
Informática nos trouxe uma série de novas situações e pers- 
pectivas., 

Com efeito, a integração dessas duas ciências criou uma ter- 
cera — a Teleinformática (ou Telemática) que já está revolu- 
cionando a sociedade, em particular a chamada sociedade de 
consumo. Por intermédio da Telemática o emprego comercial 
da Criptografia tem aumentado, principalmente no que tange 
aos arquivos confidenciais e à troca de informações entre em- 

resas. 
: Por outro lado, a introdução do microcomputador no dia-a- 
dia de nossas vidas conduziu a uma explosão de vendas de 
software, e muito dinheiro tem sido ganho e perdido na sua 
produção (referência bibliográfica 1). 

Ora, as técnicas criptográficas constituem um dos mais 
simples e seguros métodos de proteção contra o acesso de ele- 
mentos não autorizados a informações confidenciais, estejam 
elas em papel ou em meios magnéticos. 


DEFINIÇÕES 
Antes de entrarmos na parte técnica propriamente dita, pre- 
cisamos entender bem o significado de alguns dos termos 
utilizados em Criptografia. São eles: 
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«assim por diante. Assim, a palavra RAINHA 


e Segurança de dados — É a técnica que engloba o conjunto 
de medidas para evitar a interceptação dos dados por meio de 
escrita, roubo ou quaisquer outros métodos empregados pelo 
inimigo. Convém frisar que a palavra inimigo é aqui emprega- 
da fora do conteúdo militar, sem a conotação de violência. 
Assim, O inimigo seria qualquer pessoa ou organização que bus- 
casse interceptar os dados aos quais não tivesse acesso autoriza- 
d 


da mensagem para evitar que os dados daquela mensagem, uma 
vez interceptados, sejam inteligíveis pelo inimigo. O seu com- 
plemento, a Decniptografia, é o processo usado pelo destinatá- 
rio para decifrar e ler a mensagem original. 

e Sistema criptográfico e chave — Conjunto de procedimentos 
usados para criptografar e decriptografar, sendo que a chave é 
o conjunto único de parâmetros utilizados em uma aplicação 
específica do sistema (figura 1). 

e Criptoanálise — É qualquer tentativa de, uma vez retidos os 
dados cifrados, obter a mensagem original, sem o conhecimen- 
to da chave. 


TÉCNICAS BÁSICAS 


Fundamentalmente, são duas as técnicas de criptografar 
mensagens: por substituição e por transposição. Qualquer siste- 
ma criptográfico, independente do seu grau de complexidade, 
baseia-se em um destes dois processos ou na combinação deles. 

A substituição pode ser de dois tipos. O primeiro deles, 
denominado substituição simples ou monoalfabética, é a técni- 
ca mais simples que existe, inclusive muito utilizada como 
quebra-cabeças. A chave é um alfabeto permutado (por 
exemplo: DEFGHIJKLMNOPQRSTUVWXYZABC). Usando 
tal alfabeto-chave, A é substituído por D, B por E, € por Fe 

a criptografada 
como UDLQKD. 

Este exemplo, onde cada letra da mensagem é substituída 
por outra defasada de três posições no alfabeto, configura a 
“Cifra de César”, empregada por Júlio César na campanha da 
Gália (55 a.C.). 
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o. 
e Criptografia — É uma das maneiras usadas pelo expedidor 













INIMIGO A 
P (Estimativa de 



















(CRIPTOANÁLISE) P) 
= EXPEDIDOR DESTINATÁRIO 
P 
(CRIPTOGRAFIA) DECRIPTOGRAFIA) 
] ] 
! ) 
! 1 
! GERADOR DE 1 
Lao K-====) 0000 00000 p==cas K---s 
CHAVES 
P - Mensagem original (ou "texto em claro") 
Cc - Texto criptografado (criptograma) 
K - Chave 
Canal inseguro, sujeito à ação do inimigo 
--- Canal supostamente seguro e imune à ação do inimigo. 
Figura 1 — Esquema do fluxo de informações em um sistema criptográfico convencional simétrico a 


Substituições simples permitem, no alfabeto de 26 letras — 


25 ! (fatorial de 25), possíveis chaves ou, aproximadamente, 
1,5 x 1028 possibilidades. Para avaliar a grandeza de tal núme- 
ro, imagine um computador capaz de testar cada chave a cada 
microssegundo. Tal máquina necessitaria cerca de 1,7 x 10!* 
anos para varrer todas as chaves (quase 50.000 vezes mais tem- 
po do que a idade estimada para o planeta Terra). 

Contudo, praticamente qualquer pessoa consegue resolver 
os quebra-cabeças publicados nos jornais de domingo em pou- 
cos minutos, baseando-se apenas na porcentagem da frequência 
das letras. 

A moral deste fato é que a segurança de um sistema cripto- 
gráfico não repousa somente em grandes números, e o simples 
fato de um dado equipamento ser anunciado como sendo 
capaz de gerar 10n+k diferentes chaves, não basta para classi- 
ficá-lo como excepcional. 

Vamos fazer alguns exercícios? Faça um programa em seu 
micro para criptografar textos por substituição simples. Mas 
antes, alguns bizus: 

a) Observe que, formalmente, a substituição simples é um 
operador que troca cada letra do texto em claro por outra le- 
tra defasada de k posições no alfabeto, em módulo n, onde 
cada n representa o número de letras do alfabeto. 

Assim, feita uma correspondência biunívoca entre letras e 
números (A= 1, B=2,C=3,... Z= 26), têm-se: texto cifrado= 
texto em claro+k (môdulo 26) ou, de modo mais compacto: 


C=p + k (mod. 26) 


Exemplo: para k= 3 e n=26, veja que a letra X é criptografa- 
da como À, visto' que: 


P=X=zZs 
C=24 + 3 (mod. 26) = 1=A 
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TIG-LOADER possibilita: 


e a localização do ótimo volume do gravador, 
facilitando a operação LOAD. 
e DUPLICAR qualquer programa, mesmo aque- 
les “fechados”. 
e carregar (LOAD) e DUPLICAR simultanea- 
mente. 
PROBLEMAS e gravar (SAVE) em 2 gravadores ao mesmo 
Use Tig Loader O tempo. 
e monitorar as operações LOAD, SAVE ou 
DUPLICAÇÃO através de fone. 
e filtrar as interferências elétricas de baixa 
frequência, que são a causa da maioria 


APENAS: CR$ 15.000,00 dos problemas de LOAD/SAVE. 





APLICATIVOS PARA TK E CP 200 


TIG-SCREEN: vinte e sete rotinas de vídeo, para incrementar seus programas! 
Inversão de vídeo, moldura, arquivo de imagens, rotação, scroll em quatro 
direções, etc... efeitos visuais incríveis! Em linguagem de máquina, ocupa 
1,3Kb, ficando protegido no RAMTOP, depois é só utilizá-lo onde quizer! 

P/16K Com manual explicativo Cr$ 8.000,00 


TIG-COMP: coloque, em seus programas em BASIC, a velocidade de 
bo de máquina. Rode-os na forma COMPILADA! Simples de usar, 
é carregar ou digitar o seu programa em BASIC e depois usar 


o TIG-COMP. Pronto! Você terá o seu programa em linguagem de máquina em 


instantes. 

P/16K Com manual explicativo Cr$ 15.000,00 
TIG-SPEED: uma combinação de soft e hardware, permitindo uma transferência 
de dados micro/cassete de 4.200 bauds. Você carregar ou gravar 
16 Kb em 30 segundos! Acrescenta ao micro a função VERIFY. Facilimo de 
operar, compõe-se de cassete, interface e manual explicativo. 

P/ 16 e 48K Preço sob consulta. 





Envie seu pedido + cheque nominal cruzado 
Prazo de entrega: 15 dias 


Despesas postais incluídas nos preços 
Atendemos somente por carta 








p q TIGRE COM. DE EQUIP. P/ COMPUTADORES LTDA. 
(es “on Rua Correia Galvão, 224 
2h CEP 01547 - São Paulo - SP 








CRIPTOGRAFIA, UMA ARMA CONTRA OS PIRATAS? 








b) Se você não quiser usar as operações em módulo, terá: 


Cpo KO po Rg 26 6 


Cep +yk ="26, s6"p + R> 26 

c) Observe também que, para alfabetos-chave, como por 
exemplo BWGKQFMVYAC LUNOPHISDXTREJZ, tais fór- 
mulas não valem, pois tal alfabeto foi permutado sem uma de- 
fasagem constante. Para casos como este deve-se, no programa, 
definir o alfabeto-chave e fazer correspondência entre as letras 
do alfabeto em claro e ele. Por exemplo: A será cifrado como 
B, B como W, € como G etc. 

Agora desenvolva um programa para criptoanalisar textos 
cifrados por substituição simples. Vamos aos bizus: 

a) Observe que a fórmula para decriptografar pode ser escri- 
ta como: texto em claro= texto cifrado — k (módulo 26) ou, 
de forma mais compacta: 

P = 26) ou ainda: 


c - k (mod. 


P=c-k; se p<oO, p= p + 26 


Exemplo: para k= 3, a letra A, decriptografada, dá X, uma vez 
que: 


cu A z=1 
p=1-3=-2; como p<O0O, então: 
Dm =2 4:26)= 04 =X 





Comerciais, financeiros, 
científicos e games como: ALFABETOS 
Fórmula | 
Em busca do tesouro 
Simulador de vôo 
Microcale 
Invasão cósmica 
Controle de estoque 
Las Vegas 
Viga continua 
e muitos outros 


Cartucho Atari 
Aplicativos p/CP-500, Digitus e Polimax 


Distribuição exclusiva de programas das 
marcas MICROLINE, INFINITUS e SUPERSOFT 


PEÇA CATALOGO GRÁTIS 





DIGITAL 


o endereço dos microcomputadores 
Rua da Conceição, 377/383 
Fone: (0512) 24-1411 

90000 - Porto Alegre - RS 





TEXTO EM CLARO ABCDEFGHIJIKLMNOPORSTUVWKXYZ 








b) A maneira mais simples de resolver o problema é por ten- 
tativa e erro, ou seja, ir experimentando, sucessivamente, com 
k=1,k=2...k=25, (k= 26 restaura o alfabeto original). Isto 
sempre na hipótese de que o alfabeto fo: permutado com uma 
defasagem de k constante. 

c) Contudo, a maneira mais elegante e completa é verificar a 
frequência de ocorrência das letras no criptograma e compará- 
la com a do idioma Português (em português, as letras de 
maior frequência são, em geral, EAOSIRND, nesta ordem). 

Num esforço para dificultar a criptoanálise via exame de 
frequência de letras, os criptografistas desenvolveram sistemas 
por substituição polialfabética nos quais diversos, e não somen- 
te um alfabeto-chave, são empregados, periodicamente, para 
decifrar mensagens. Um exemplo é o Quadro de Vigentre (de- 
vido à Blaise de Vigenêre, 1586), mostrado na figura 2. 

A figura 3 mostra o quadro (parcial) que seria utilizado para 
decifrar um texto utilizando a palavra-chave BUGRE; a figura 
4 ilustra como seria criptografada uma mensagem a partir desta 
chave. 

Uma outra forma de substituição polialfabética é aquela na 
qual, ao invés dos previsíveis alfabetos Vigenêre, os alfabetos- 
cifra são gerados aleatoriamente, e não correlacionados entre 
st. Mais ainda: a chave, ao invés de ser periódica, pode ser não 
repetitiva (por exemplo, 1 ). 

Empregando-se tais artifícios, esta técnica, não obstante já 
ser conhecida desde os trabalhos de Kasik (1863), torna-se 
demorada e onerosa para O inimigo. 

Como exercício, escreva um programa para criptografia pelo 
Quadro de Vigenêre. Olha o bizu: se a sua palavra-chave tiver, 
digamos, cinco letras, isto é, se forem usados cinco alfabetos- 





SEKXESXCIHNXONOZEEXUNHONTOOU 4» 
PNKXESCISNTHONOZEEXUNHAaAMNHOO! 
ULNKXESCISNAXONOZZEX4UNHHONHOO 
QUPNKKESCSNTHONO ZZEXUNHOMNEO 
VOVINKKELSCSHNTHONOZEXEXU4UMEOMãAN 
UU INKKELCHNTHONOZEEXUNEHOM 
MOCOVINKKESCHNXONOZZEX4UHNE AQ 
QOMUDVOVINKKXELSCIHNTONOZZXEXUME 
ZONUUVOUPNKKELXCNNHONOZEEHXUM 
HZONHONUINKKXELSCIHNHONOZEEA 
UNZONTONUSNKKXESXCSNAHONOZEZE» 
RUNZONTHONDLNKKXESCINHONOZEE 
PXGUTONTOOULNKKXESENNHONOZE 
ZLEXUNTONNONOUPNKKXELCNNHONOzZ 
ZZrEXUNTHONHOOUSNKKXESaESNAHONO 
OZEEXUNZHONTUOOUPNKKXEdLSSNSNHON 
VNOZEREX4UNHZHONHOOUPNKKE<LCNNHO 
OVOoOzZzXEXUNZHONHONUDNKKXE<SaSn 
WOVOZREXUNZHONHONOUDNKKE<SaNU 
NONO ZEEXUNZHONTONULNKK <a 
SOXOVOZEEXUNHZHANHOOUWPNKKE<SE 
CSNOVOZEEX4UNTHONEDOUDNKKE< 
<CcCanONOZEEXUNZOMNEONUDNK XE 
Z<CSnXOVOZEEXUNZHONHOOUDNK x 
XEXCIHNTONVOZEEX4UNLHZHONHONUDRãAK 
KXESCSNLXONOZEEXUNHONHOOUDaR 


Figura 2 — Quadro de Vigenêre 
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Figura 3 — Quadro (parcial) para a palavra-chave BUGRE 


RENATA E ROBERTA NADAM NA PISCINA 
BUGREB U GREBUGR EBUGR EB UGREBUG 


MENSAGEM 
CHAVE 


CRIPTOGRAMA 
SYTRXB Y XFFFIZR RBXGD RB JOJGJHG 


Figura 4 — Criptograma com a chave BUGRE 


o 
co wu 
o w 
o o 
[0 


Criptograma: RAEAA ITBNN CXNRT 
AIAAO AMSXE ERDPN 


R 
A 
E 
A 
A 
I 


Zz00%7mm 
»H> 3 Z 
xuz»ox 
xozzuws 


Figura 5 — Transposição simples 


chave, as letras numeradas(5n+i) serão cifradas com o i-ésimo 
alfabeto. Sendo assim, letras numeradas com 1,6, 11, 16 etc., 
serão cifradas com o primeiro alfabeto-chave. 

Outra técnica básica da criptografia é a transposição. A fi- 
gura 5 ilustra a chamada transposição simples, na qual a mensa- 
gem é escrita sob uma palavra-chave e o criptograma é obtido 
retirando-se as letras, coluna por coluna, na sequência numéri- 
ca das letras da palavra-chave, em grupos de cinco. 

Já a transposição dupla consiste em aplicar, ao criptograma 
da transposição simples, uma segunda transposição, porém 
com uma chave diferente. O texto cifrado resultante apresenta 
uma surpreendente resistência à criptoanálise. 

Finalmente, outras formas de transposição consistem em re- 
tirar o criptograma, não por colunas, mas sim mediante uma 
rota preestabelecida (espiral horária ou anti-horária etc.). Na 
figura 6 temos o texto em claro original, escrito na sequência 
de uma espiral anti-horária, com o texto cifrado por linhas. 


COMENTÁRIOS FINAIS 


É importante frisar que esta primeira parte do artigo visou 
apenas dar uma primeira e superficial noção aos leigos sobre o 
assunto. 

Cada técnica criptográfica constitui, por si só, um verdader- 
ro curso, em especial as de transposição e as de substituição 
polialfabética, cuja criptoanálise, aliás, só foi possível após cer- 
ca de 300 anos de seu emprego. 

Os programadores de ALGOL, do Burroughs B-6900, por cer- 
to reconheceram, na instrução TRANSLATETABLE daquela 
linguagem, uma ferramenta para a criptografia por substituição. 
Contudo, os procedimentos rígidos e facilmente algoritmáveis 
dos diversos processos permitem uma programação trivial para 
os usuários de micros. 
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| 


RADAN EMANA 
NNXIT AAXCR 
TPISE AEROB 


Criptograma: 


R 
E 
N 
A 
T 


| 


Figura 6 — Transposição por rota 


Finalmente, aqueles que estiverem interessados em maiores 
detalhes sobre Criptografia a lápis e papel obterão respostas 
bastante completas nas referências bibliográficas 2, 3 e 4. 
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Na hora de fazer a sua fezinha na Loteria Esportiva, forneça os palpites 
ao D-8000, deixe-o preencher o cartão para você e... boa sorte! 





Acerte na loteca 
com o D-8000 


Ivo D'Aquino Neto 





nham os jogos esportivos ou não acreditam na sorte, 
vez por outra, se sentem tentados a jogar na Loteria 
Esportiva. 


IM esmo os que não entendem de futebol, não acompa- 


É nessa altura que surge a dúvida de como preencher o 
cartão de apostas. Aleatoriamente, através de um sorteio do 
tipo cara ou coroa? Seguindo rigidamente os prognósticos das 
revistas especializadas? 


Creio que a combinação desses dois processos nos fornece a 
solução mais satisfatória: um sorteio com probabilidades de 
ocorrência de cada um dos eventos (coluna 1, coluna do meio, 
coluna 2), determinadas pelos prognósticos fornecidos pelas 
revistas esportivas. 


Entrando com os dados (porcentagem para cada um dos 13 
jogos) no D-8000, utilizando o programa listado a seguir, obte- 
remos no vídeo, ou impresso, o cartão devidamente preench- 
do. Os palpites duplos ou triplos ficam por nossa conta, ou po- 
demos compor um cartão baseado nos palpites fornecidos por 
dois cartões preenchidos pelo computador. Neste caso, os mes- 
mos dados de entrada para o D-8000 nos fornecerão os cartões 
que nos servirão de base. 

















JOGO | COLUNA 1 | COLUNA DO MEIO | COLUNA 2 | 
Et CSA ER sp repeat 7 v5 ads | 
10] | x 
2 | x | 
3 x | 
4 | x 
Bisa] x I | 
6 ] | x | 
7 x | 
fa x | 
9 I x | 
10 x I | | 
“ | X 
12 | | x I 
13 ' x I 





Figura 1 — Exemplo de cartão preenchido pelo D-8000 





Ivo D'Aquino Neto é Engenheiro Eletrônico. Trabalha atualmente na 
TELESC — Telecomunicações de Santa Catarina S/A onde é responsável 
pela expansão e implantação do Sistema de Telesupervisão da empresa. 





CURSOS DE ESPECIALIZAÇÃO PROFISSIONAL 
* MICROPROCESSADORES APLICADOS À CONTROLE - 12/04/83 


TELEPROCESSAMENTO 


* TELEPROCESSAMENTO | - HARDWARE - 16/04/83 
* TELEPROCESSAMENTO ll - SOFTWARE - 11/04/83 
CONVÊNIO: SUPORTE ENGENHARIA DE SISTEMAS DIGITAIS LTDA 
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BANANA - 85 


MICROCOMPUTADOR PARA DESENVOLVIMENTO DE SOFTWARE E HARDWARE 
REVENDEDOR AUTORIZADO 


7 - RIO DE JANEIRO - TE 
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10 
20 
30 
40 
50 
60 
70 
Bo 
90 
91 
92 
93 


“Loteria Esportiva 


a a a a a a A RR a RR a A A A 


ve . 

. N 
a -S$8- LOTECA -S$5- * 
va « 
» PROGRAMA DESENVOLVIDO POR: * 
t. IVO D'AQUINO NETO, EM: 02/01/1982 * 
' 


100 CLEAR1500:DEFSTRX:DIMC1(13),CM(13),C2(13),P1(13), 


No CLS:A$= 


PM(13),P2(13),X1(13),XM(13),X2(13),X(13) 
"S$S LOTECA S$õS$ $":GOSUBI000:PRIN 





TOPP,AS 


120 PRINT:PRINT:PRINTTAB(7)"FORNECA SEUS PALPITES, EM 


PORCENTAGENS, PARA CADA UM DOS 13 JOGOS E SEU D-8 
000 PREENCHERA! UM CARTAO PARA VOCE.":FORI=1T0300 
O:NEXT 


130 CLS:GOSUB500:GOSUB1500:FORI=1T01000:NEXT 
140 CLS:GOSUB500:GOSUB2000 

200 END 

210" 


2 


212 * 
500 ** * * SUBROTINA PARA DESENHAR O CARTAO * * * 


501 


510 F2=124:A=12:B=23:C=40:D=51 
520 A$="JOGO COLA 1 COLUNA DO MEIO COLUNA 2" 
530 PRINTG7,AS:PRINTÉI36,"1":PRINTO200,"2":PRINTO264, 


"3"; PRINTO328,"4":PRINTO392,"5":PRINTO4S6,"6":PRI 
NT6520,"7":PRINTOS84,"8":PRINTO6G4B, "9": PRINTO7I1, 
"10": PRINTO775,"11":PRINTO839,"12";PRINTO9O3,"13" 


540 FORI=15431T015474:POKEI,95:NEXT 
550 FORIN=15360T016256STEP64 
560 POKEIN+A, F2:POKEIN+B, F2:POKEIN+C,F2:POKEIN+D,F2 


570 NEXT 

580 RETURN 

so? * 

592 * 

1000 *!* * * SUBROTINA PARA FAZER PISCAR O TITULO 
1001 * 


1010 PRINTOO, STRINGS (64,32);:FORI=1TO1O 
1020 PP=INT((64-LEN(AS))/2):PRINTEPP,AS;: FORJ=17020:N 


EXT 


1030 PRINTOO, STRINGS (64,32);:FORJ=1TO10:NEXTJ,I 

1040 RETURN 

1050 * 

1051" 

1052 * 

1500 ** * SUBROTINA PARA INTRODUÇÃO DE DADOS * * 
1501! 

1510 FORK=1T013 

1520 P1(K)=145+64*(K-1):PM(K)=159+64*(K-1):P2(K)=173+ 


1530 PRINTEPI(K)," 


64*(K-1) 
INPUTCI (K): PRINTGPM(K),"";: INPUT 
CI(K)-CM(K): IFC2(K)40THEN1530 





CM(K):C2(K 





1540 GOSUB510:FORF=1TOK:PRINTOPI(F),CI(F);:PRINTOPM(F 


) CM(F);:PRINTOP2(F),C2(F);:NEXTF,K: RETURN 


1550 
1551 


2000 


1552 * 
' 


* SORTEIO COM PROBABILIDADES PREDETERMINADAS * 


2001 


201 


O FORH=1TO13 


2020 RANDOM 

2030 X!=RND(101)-1 

2040 IFC1(H)>=X1X1(H)="X":XM(H)="":X2(H)="":GOTO2070 
2050 IFX!<i=CI(H)+CM(H)XI(H)="":XM(H)="X":X2(H)="":GOT 


02070 


2060 IFX!>CI(H)+CM(H)XI(H)="":XM(H)="":X2(H)="X" 

2070 NEXT 

2080 FORH=1TO13 

2090 PRINTGPI(H),X1(H);:PRINTOPM(H),XM(H);: PRINTOP2(H 


),X2(H); 


2100 NEXT 


21 


O PRINTOD73,"<DESEJA IMPRIMIR O PROGNOSTICO S/N 2?> 


2120 IK$=INKEY$: IPIK$=""THEN2120 
2130 IFIK$="N"THEN2600 
2140 IFIK$="S"PRINTO960, STRINGS (63,32); :GOTO2500:ELSE 


210 
2150 * 
2151! 
2152 * 
2500 ** * * IMPRESSAO DO PROGNOSTICO * * + 
2501 * 
2510 LPRINT" ":;LPRINT” ":FORW=15360T016359STEP64:25=" 


2520 FORY=0T063:2$=2$+CHRS( PEEK(W+Y) ) : NEXTY:LPRINTZS: 


NEXTW 


2600 PRINTG973," <VOCE DESEJA NOVO PROGNOSTICO S/N ?> 


261 
2620 IFIK$="N"END = 
2630 IFIK: S"THEN130ELSE2600 se 


0 IK$=INKEYS: IFIK$=""THEN2610 
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ICRO TEM ASSISTÊNCIA 
CNICA DE GRANDE PORTE. 


Há mais de 12 anos a MS presta atendimento a uma série de empresas, 
no conserto e manutenção de computadores dos mais diversos portes 
e marcas. E toda essa bagagem técnica está também à sua disposição, 

garantindo o desempenho ininterrupto do seu micro. 

e Socorro urgente telefônico - chamou-chegou! 

e Check-ups preventivos 

e Reparos 

e Substituição de peças com garantia 

e Substituição do micro ou unidades periféricas 

e Contratos de assistência técnica a empresas e particulares. 

Na MS a vida de sua máquina está garantida. 


Wa — elimina 


Rua Astolfo Araújo, 521 - Tel.: 549-9022 
CEP 04008 - S. Paulo - Capital 


Representante no Brasil da: MDS - Mohawk Data Sciences/MSI - Data Corporation 











* SUPER LANÇAMENTO * 
TK'S E CP-200 
* DEFENSOR 3D * BAZOOCA 
* INGLÊS || * G. PREMIO BRASIL 


Ve: JOGOS DISPONÍVEIS * 
TK'S E CP-200 

* KING KONG * COMBATE AÉREO 
* MICROPAC * DRÁCULA | 
* LABIRINTO CHINÊS | « FUTEBOL 
* CAVERNA * INGLÊS 

- » MATEMÁTICA * ENTERPRISE 

PREÇO ÚNICO DE Cr$ 4.500,00 
CP-500, CP-300 e SYSDATA 


* FUTEBOL 
* SANTA PARAVIA 


PREÇO ÚNICO DE Cr$ 8.000,00 z 


ADQUIRA SEU SOFTWARE ATRAVÉS DE REVENDEDOR OU | 
* PELA CAIXA POSTAL. 


MICRO BOARD SIC L 
CAIXA POSTAL 18968 

SÃO PAULO - SP - CEP 04699 
FONE: (011) 532-0923 








A maioria das linguagens não permitem operações com números 
complexos. Este programa, em BASIC, torna isto possível nos micros. 





Operações complexas 


s números complexos são ne- 

cessários em muitas situações 

encontradas por matemáticos, 
ísicos e engenheiros. 

Na Matemática eles aparecem como 
uma primeira extensão dos números 
reais: o chamado campo complexo. Na 
Física, são úteis nos estudos de movi- 
mentos oscilatórios, entre outros. O En- 
genheiro Eletrônico, por sua vez, socor- 
re-se dos números complexos para cal- 
cular propriedades de circuitos elétricos, 
como a impedância, por exemplo. 

Em seguida, apresentamos um con- 
junto de instruções em BASIC que per- 
mitirão implementar em seu compu- 
tador as quatro operações complexas 
fundamentais (adição, subtração, multi- 
plicação e divisão), permitindo ainda a 
obtenção do módulo e o argumento de 
um número complexo dado. 

Consideremos o problema de conhe- 
cer o número complexo C, que é obtido 

ir dos números complexos conhe- 
cidos A e B por meio de uma das quatro 
operações fundamentais complexas, por 
exemplo C= O programa requer q. 
o valor das partes real e imaginária dos 
operandos A e B estejam armazenados 
nas variáveis RA, RB, IA e IB. O resul- 
tado ficará contido nas variáveis RC e 
IC, que representam as partes real e ima- 
ginária de C, respectivamente. 

Para o cálculo do módulo (RO) e do 
argumento (ARG), o programa requer as 
partes real e imaginária do número com- 
ne dado armazenadas nas variáveis 

e IM, respectivamente. 

O programa deve rodar na maioria 

dos micros nacionais e estrangeiros. O 
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em BASIC 


Valdir Aguilera 


Operações com Números Complexos 


OPERAÇÕES COMPLEXAS 
AGUILERA : MAIO 1983 
Operacoes: 
RA: parte real do primeiro 
RB: " segundo 
RC: no u 

IA: e 

IB: e] o! 
IC: ” p x 
RE: e! real do complexo 
IM: 's imag * 

RO: conterá o ane 

ARG: pn ” argumento 
aa a a 


Comeco do programa 


+,7+*,/ modulo, argumento 


operando 


resultado 

imaginaria do primeiro operando 
segundo 
resultado 


cujo modulo ou. argumento se requer 


RAEM A ECA A 


SOME=30: RESTE=40: MULT=50: DIVIDA=60 


MODULO=70: ARG=80 
REM “a. ADICAO ..a 
RC=RA+RB: IC=IA+IB: RETURN 

REM ns a SUBTRACAO ... 
RC=RA-RB: IC=IA-IB: RETURN 
REM  * * *  MULTIPLICACAO 
RC=RA*RB-IA*IB: 
Bm Via. DIVISAO 


.. 


..* 
IC=RA*IB+RB*IA: RETURN 


IC=RB*RB+IB*IB: RC=(RA*RB+IA*IB)/IC 


IC=(RB*IA-RA*IB)/IC: RETURN 
REM  * * * MODULO **+* 
RO=SQR(RE*RE+IM*IM): RETURN 
REM  * * * ARGUMENTO * * + 
ARG=ATN(IM/RE): RETURN 

REM - EXEMPLOS DE UTILIZACAO 


REM - 1) Somar A=1-i com B=3+10i 


REM 
REM 
REM 2) 


RA=1: IA=-1: 
RC conterá 


RB=3; IB=1 


complexo B do exemplo 1 
RE=3: 
RO conterá o modulo de 


REM 
REM 
REM 
END 


único obstáculo pode estar na sintaxe da 
instrução GOSUB, que poderá requerer 
explicitamente uma constante em vez de 
uma variável. Neste caso, use as constan- 
tes definidas nas linhas 20 e 22 para 
cada chamada tipo GOSUB. 


4 e IC conterá 9: 
Calcular o modulo e o argumento do 


O: GOSUB SOME 
C=4+9i 


IM=10: GOSUB MODULO: GOSUB ARG 


ARG conterá o argumento de B 





Valdir Aguilera é Professor com Doutoramen- 
to em Física e dá aulas particulares de lingua- 
gens FORTRAN, BASIC, ALGOL e Pascal. 
Valdir também trabalha assessoria 
de software, através da firma Micro Espelho, 
em São Paulo. 
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Se você ainda não guardou o endereço da 
CompuShop da Rua Dr. Mário Ferraz, 37, 
vai ser impossível esquecer o novo. À e 
Av. Pres. Juscelino Kubitschek, 889. À “ » 
(entre a rua João Cachoeira e a Com US] bp) 


rua Clodomiro Amazonas) 


A loja especializada em microcomputadores. 7 > Presente mais uma vez. 


Av. Pres. Juscelino Kubitschek, 889 - CEP 04543 - São Paulo - SP - Tels.: (011) 64-2806/852-7149. 
Rua Dr. Mário Ferraz, 37 - CEP 01453 - São Paulo - SP - Tels.: (011) 210-0187/212-9004 - Telex (011) 36611 BYTE BR 
Estacionamento próprio. Abertas de Segunda a Sexta das 9 às 19 horas e aos Sábados das 9 às 14 horas. 





Pergunta — Gostaria de saber para que 
servelh as funções RAND e RND, uma 
vez que o manual do TK82-C não é 
muito claro. Se possível, déem um 
exemplo dessas funções. (Henrique 
Soares, SP). 
MICRO SISTEMAS — A função RND 
gera um número pseudo aleatório en- 
tre O e 1, de uma sequência de 65535 
números. Por exemplo: 
20 PRINT RND 
30 GOTO 20 
A instrução RAND inicializa o RND 
na sequência. Assim: 
10 RAND 3 

O programa anterior produzirá a 
apresentação dos mesmos números to- 
da a vez que o programa for rodado. 
RAND O ou simplesmente RAND não 
inicializa, mas gera no RND um nú- 
mero decorrente da contagem da quan- 
tidade de imagens enviadas à tela da 
TV 


Pergunta — Gostaria de obter informa- 
ções sobre Banco de Dados: o que são, 
utilidade, função etc. (Roberto Nigir 
Adelson, RJ). 

MICRO SISTEMAS — É um conjunto 
de dados estruturado de uma forma es- 
pecial. Normalmente esta estrutura 
tem a forma de uma árvore na qual um 
dado tem sob sua coordenação diver- 
sos outros dados de tipos variados. A 
grande vantagem do Banco de Dados é 
evitar a redundância de dados, o que 
ocorre frequentemente com dados or- 
ganizados sob a forma de arquivos, que 
é uma forma de organização de dados 
muito utilizada. Para informações mais 
detalhadas leia o livro “Introdução ao 
Sistema de Gerência de Banco de Da- 
dos””, de Leonardo Lelllis Pereira Leite. 


Pergunta — Tenho as seguintes dúvi- 
das: os programas feitos para o NE- 
Z8000, DGT-100, TK82-C e TRS-80 
Modelo [ll podem ser usados, sem ne- 
nhuma alteração, no CP-500? E o sis- 
tema operacional CP/M e o programa 
VisiCalc são compatíveis com o CP- 
500? (César C. Margarida, SC). 

MICRO SISTEMAS — O DGT-100 é 
compatível com o TRS-80 Modelo |. 
O CP-500 é similar ao TRS-80 Modelo 
ll, Tudo que roda no Modelo | tam- 
bém pode ser executado no Modelo 
HI, mas nem sempre o inverso aconte- 


ce, pois embora sejam basicamente se- 
melhantes, o Modelo Ill tem o BASIC 
mais poderoso. 

Já o TK82-C e o NE-Z8000 são si- 
milares ao Sinclair ZX81. Entre eles 
ha apenas pequenas diferenças de no- 
me com relação a certos comandos co 
como, por exemplo: a tecla NEWLINE 
no TK82-C corresponde à tecla EN- 
TER no NE-Z8000. Assim, os progra- 
mas feitos para o TK rodam no NE; e 
os programas feitos para o DGT-100 
também podem ser executados, sem 
nenhuma alteração, no CP-500. Para 
rodar, entretanto, programas desenvol- 
vidos para o TK no CP-500 será neces- 
sário fazer versões do BASIC de cada 
equipamento. 


O CP/M pode ser implementado no 
CP-500 (nos EEUU já existe o CP/M 
para o TRS-80 Modelo 111), mas ainda 
não está disponível no Brasil. Progra- 
ma semelhante ao VisiCalc para o CP- 
500 são comercializados por diversas 
softhouses brasileiras, com o preço de 
aproximadamente 15 ORTNs. Mas o 
VisiCalc não existe para o CP/M, exis- 
tem sim, outros programas (como, por 
exemplo, o SuperCalc) que apresentam 
o mesmo resultado. 


Pergunta — Sou possuidor de um Sin- 
clair 1000 com 2 Xb de RAM (sem ex- 
pansão). Resolvi fazer uma listagem da 
memória desde o endereço O até o en- 
dereço 65535 através deste programa: 
10 PRINT “ENDEREÇO”; TAB 10; 
MBYTES 

20 FOR A= 0 TO 65535 


configuração 16K de RAM 


30 PRINT A; TAB 11;PEEK A 

35 SCROLL 

36 NEXT A 

E obtive o seguinte resultado: 

o De O até 16943, bytes em hexade- 
cimal e zeros; 

o De 16944 até 22461, somente ze- 
ros; 

o De 22462 até 65535, bytes em he- 
xadecimal e zeros. 

Pergunto: por que entre os endere- 

ços 16944 até 22461 têm somente ze- 
ros? Até que endereço o sistema ope- 
racional do computador está contido? 
Seria possível esclarecer melhor a ocu- 
pação da memória? E quando se usa 
linguagem de máquina? (Nelson Lom- 
bardi, SP). 
MICRO SISTEMAS — A organização 
da memória é explicada no manual do 
micro. Se você não o tiver, procure al- 
guém que tenha e estude com aten- 
ção. Para conhecer um pouco mais so- 
bre organização da memória de equipa- 
mentos compatíveis com o Sinclair 
ZX81, leia a matéria “Pequenas me- 
mórias, grandes economias”, publicada 
em MICRO SISTEMAS nº 22 (edição 
de julho). 

Quanto à organização de memória 
do endereço O ao 65536, o que aconte- 
ce é o seguinte: de O a 8192 temos o 
monitor residente (ROM). De 16384 
até 18432 (em equipamentos de 2 Kb, 
pois para os de 16 K o endereço final 
da memória é 32768), temos a área da 
RAM (programas, variáveis, imagem 
etc.). 

Os outros endereços são apenas “es- 
pelhos”, desses dois blocos. Ali não 
há memória, apenas uma “imagem”. 
Em equipamentos de 2 K a “imagem” 
é sempre repetida de 2 em 2 K. Veja 
na figura 1 a disposição da memória 
em micros de 2 K e de 16K de RAM, 
e observe que só existe memória onde 
está em cinza. 


“ox ask s6K 6ax 





16384 24576 


e — a) 


16K de RAM 


configuração 2K de RAM 


pe 2K de RAM 


CÓPIA DA 
ÁREA DE 
PROGRAMA 


CÓPIA CÓPIA DA 
DO ÁREA DE 
MONITOR | PROGRAMA 


40960 49152 57344 





32768 65536 


cória CÓPIA 
DO DO 
MONITOR MONITOR 





16384 24576 


32768 40960 49152 57344 





SuperVisiCalc. 
Tudo o que o VisiCalc faz e muito mais. 


Leitura automática de 
memória disponível 

até 512K (sem 
necessidade de VC Expand) 


Emais: 

* Totalmente 
compatível 
com VisiCale 

e Tabulação 
automática 
para células de 
entrada de dados 

* Compatível com discos 
rígidos tipo Winchester 
ou discos de 8” 

* Coluna invisível 







= Colunas de tamanho 
variável 


Células invisíveis 
e protegidas 


80 Colunas (O SuperVisiCale 
trabalha em 40,70 ou 80 colunas) 


Preço de lançamento: apenas Cr$ 150.000,00 


Com o VisiCalc, o programa de planejamento 
eletrônico, centenas de milhares de usuários no 
mundo todo acharam a melhor maneira de 
aproveitar toda a capacidade e eficiência de seus 
microcomputadores nos mais diversos campos. 
Essa utilização cada vez mais frequente fez 
aparecer uma série de limitações que precisaram 
ser suplantadas. Foi assim que surgiu o 
SuperVisiCalc, um programa criado para 
otimizar o trabalho já iniciado por um VisiCalc. 

Um programa totalmente compatível com 
os arquivos que você já criou com o 
VisiCalc em microcomputadores tipo 
Apple- Unitron AP II e Maxxi-e que como 
você pode ver na tela acima, permite 
uma flexibilidade muito maior durante 
a sua utilização. 


Eletrônica Ltda. 


Av. Rebouças, 3199 - CEP 05401 - São Paulo -SP 
Tel.: (011) 212-9522 - Telex (011) 21237 TGER BR 






As 


Como SuperVisiCalc utiliza os mesmos 
comandos do VisiCalc, você não precisa aprender 
nada de novo. Se você é principiante, vai ver 
como é fácil começar com o SuperVisiCalc. 

Com seu manual de operação totalmente em 
português e por sua facilidade de uso, é sem 
dúvida um capa ts imprescindível em todos 
os casos onde se exige agilidade e rapidez de 
informações. 

Procure o seu SuperVisiCalc na Tiger 
ouna CompuShop. 
Atenção: lojas especializadas 
interessadas em revender o 
Super VisiCalc, procurar Tiger 
ou CompuShop, distribuidores 
exclusivos para todo o Brasil. 


Super VisiCalc émarca registrada da Royal Software 


CompuShop 


Rua Dr. Mário Ferraz, 37 - CEP 01453-São Paulo - SP 
Tels.: (011) 210-0187/212-9004/815-0099- Telex (011) 36611 BYTE BR 
Av. Pres. Juscelino Kubitschek, 889 - CEP 04543-São Paulo - SP 
Tels.: (011) 64-2806/852-7149 








É preciso ser um ás no volante para não sofrer nenhum acidente 
neste circuito. Então, está preparado? A “pole position” é sua... 


O micro dá a largada! 





programa Fórmula 1 é um jogo 

que vai testar os seus reflexos e 

a sua criatividade em programa- 
ção. Ele foi projetado, em Assembler e 
BASIC, com uma estrutura onde pode 
ocorrer uma infinidade de modificações. 
O objetivo, no entanto, é sempre o mes- 
mo: andar o maior número de quilôme- 
tros sem sofrer um acidente. 

Para começar grave o Monitor Assem- 
bler (n9 23 de MS). A seguir digite uma 
linha 1 REM com 232 caracteres (pode 
ser qualquer um) e entre com os dados 
do bloco Assembler. Ao terminar confi- 
ra tudo para ver se não há erro. 

Agora elimine o monitor ficando só 
com a linha 1 e a seguir digite a parte 
em BASIC. Grave na fita e teste o pro- 

a. Dé umas voltas para sentir o 
circuito. Ande nas três velocidades (o 
recorde profissional é 16.459 km) e 
quando estiver familiarizado com a me- 
cânica do jogo, então, será hora de fazer 
algumas alterações. 


EM ASSEMBLER 


O bloco Assembler funciona da se- 
guinte forma: determina o formato da 


52 


Renato Degiovani 


12 seção da pista (linha 0) para curva à 
direita, esquerda ou reta; testa se o carro 
vai colidir com alguma coisa; apaga o 
carro; SCROLL para baixo; identifica a 
tecla pressionada; desenha o carro em 
sua nova posição; conta mais um Km; 
desenha o obstáculo na pista; reinicia a 
operação. Essa operação é repetida até 
que o carro colida com um obstáculo 
qualquer. Se houver colisão, então o 
programa desenha os destroços do carro 


e retorna ao BASIC com a quilometra- 


gem percorrida. 

Veja agora alguns endereços impor- 
tantes: 
16514/16515 — Esse é o endereço de 
impressão do carro. Ele tem que ser ini- 
cializado pelo BASIC, antes da chamada 
USR (veja linhas 1170 e 1190). Se isto 
não for feito o programa se perderá. 
16516/16517 — Quilometragem percor- 
rida pelo carro. É preciso zerar essas po- 
sições antes do USR. 
16518/16519 — Arquivo da coluna de 
impressão da pista. Também tem que ser 
inicializado pelo BASIC (linhas 1140, 
1150 e 1160). 
16524 — Determina o formato da pista. 


Podem ser usados apenas dois valores: 


52 e 53 (o 52 se assemelha a pista de 
terra). 


16547/16565 — Determina a largura da 
pista. Esses dois endereços devem conter 
os mesmos valores. Podem ser usadas 
larguras de nove caracteres até 18 carac- 
teres. 


16681 — Velocidade do carro. Pode ser 
usado qualquer valor de O a 255. 


16692 — Distância do obstáculo à late- 
ral esquerda da pista. Admite valores 
entre le 7. 


16703 — Obstáculo na pista. Pode ser 
usado qualquer caráter como tal e para 
uma pista sem obstáculo basta gravar O 
nesse endereço (isso é bom para treino). 

Esses parâmetros devem ser seguidos 
rigorosamente, caso contrário, podem 
surgir problemas impossíveis de serem 
resolvidos. O formato da pista é o resul- 
tado de uma série de fatores como tem- 
po de execução, velocidade do jogo e 
um elemento aleatório. Alguns circuitos 
poderão ser monótonos, outros diverti- 
dos e até mesmo engraçados. O impor- 
tante é tentar achar um sistema que nos 
agrade mais. 
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EM BASIC 


A parte em BASIC serve para títulos 
e inicialização do jogo. A numeração das 
linhas não é importante e, com exceção 
das linhas mencionadas, todas as outras 
podem ser modificadas. 

Veja agora algumas linhas importan- 
tes em BASIC: 


1000 — Essa é a linha do título. Use o 
desenho do quadro para digitá-la. 


1140/1150/1160 — Inicialização da pis- 
ta. Pode ser usada qualquer coluna da li- 
nha 0, respeitando-se a largura da pista e 
o limite de 32 caracteres por linha. 


1170/1180/1190 — Inicialização do car- 
ro. O carro pode correr em qualquer li- 
nha de 3a 19. 


1200 — Desenho do carro. A parte em 
Assembler possui outro desenho seme- 
lhante. Uma modificação nessa linha 
não modifica o formato do carro. 


1210/1220 — Zera o contador de qui- 
lômetros. 


1340 — Chamada para o Assembler. O 
programa retorna ao BASIC com quilo- 
metragem na variável X (pode ser usada 
qualquer variável ou matriz). 

Esses são alguns pontos importantes 
que podem auxiliar na modificação do 
jogo. É preciso ir tentando aos poucos e 
anotando os resultados até que o siste- 
ma fique perfeito. 


OPERAÇÃO 


Ao rodar O programa, o sistema fará 
a apresentação e esperará até que uma 
tecla qualquer seja pressionada, Logo 
após, será pedida a velocidade do jogo 


Bloco Assembler 


16514 20 00 00 VU OU BU ZA B6 
16522 48 3A 35 40 CB 47 28 DA 
16530 28 7E SC FE 77 20 15 23 
16538 18 12 FE FF 28 BE 23 ES 
16546 01 UC OO 09 PE EI JC FE 
16554 77 20 01 28 22 86 40 JE 
16562 29 77 01 WC 00 09 77 2A 
16570 B2 40 01 21 QUO A7 ED 42 
16578 AF BE 20 06 23 BE 20 B2 
16586 23 BE C2 46 41 2A 82 40 
16594 7723772377 0977 28 
16602 77 28 77 2A WC 40 01 B4 
16610 22 09 11 21 08 ES 19 D1 
16618 EB ED BB AF G6 20 23 77 
16626 1g FC CD BB 02 7D 2A 82 
16634 40 FE F7 20 03 28 18 05 
16642 FE EF: 20 01 23 22 82 40 
166508 36 87 23 36 9D 23 36 B4 
16658 2 21 UU 09 36 04 28 36 
16666 AD 2B 36 87 2A B4 40 23 
16674 22 84 40 21 00 OU JE 08 
16682 BC 23 20 FC JA 34 40 E6 
16698 07 FE B6 20 UC 06 BU 4F 
16698 2A B6 40 09 36 BO DU DO 
16706 20 c3 88 40 2A 82 40 A? 
16714 ED 42 36 01 23 23 36 9D 
16722 09 36 04 2B 36 17 28 09 
16730 36 87 23 36 81 23 36 18 
16738 ED 4B 84 40 C9 
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1000 PRINT " veja texto 
1010 PRINT AT 18,0; "MICRO SISTEM 
AS NEIZ4" ,, 9; "RENATO DEGIOVANI - 
1983" 

1020 IF INKEY$="" THEN GOTO 1020 
1938 CLS 

1940 PRINT AT 4, 
J0GO";AT 7,8; "A = 


VELOCIDADE DO 
AUTO ESCOLA"; 








AT 10,8;"D = DOMINGUEIRO";AT 13, 
8;"P = PROFISSIONAL" 
1050 IF INKEY$="" THEN GOTO 1054 








1960 LET US=INKEY$ 

1070 IF U$="A" THEN POKE 16681,1 
2 

1880 IF U$="D" THEN POKE 16681,8 
1090 IF U$="P" THEN POKE 16681,2 
1188 CLS 

1112 FOR A=1 TO 21 

1120 PRINT AT A,9;" | 
” 

1136 NEXT A 

1140 PRINT AT 0,9; 


1150 
1164 
1170 
1189 
1194 
1200 


POKE 16518,PEEK 16398 
POKE 16519, PEEK 16399 
PRINT AT 16,16; 

POKE 16514,PEEK 16398 
POKE 16515,PEEK 16399 
PRINT "Ca", , aa 


e então começará a corrida contra os 
obstáculos. 

Para dirigir o carro, basta utilizar a 
direção das teclas 5 e 8 e quando houver 
um acidente, qualquer tecla pressionada 
produz uma nova corrida. 


Listagem BASIC 





1210 POKE 16516,8 

1220 POKE 16517,0 | 
1230 FOR A=3 TO 11 STEP 2 

1240 PRINT AT A,27;"B E 

1250 NEXT A 

1260 FOR A=1 TO 6 

1270 PRINT AT 1,25; "ATENCAO"; AT 
1,25; "EEN" 

1280 NEXT A | 
1290 FOR A=3 TO 11 STEP 2 | 
FOR B=1 TO 4 | 





1300 

1310 NEXT 8 

1320 PRINT AT A,27;"H Wº 

1330 NEXT A | 
1340 LET X=USR 16520 | 
1350 LET U$=" 1! | 


1360 PRINT AT 0,0; US; U$,US;AT OD, 
24;X5;" km" 

1370 FOR A=1 TO 20 

1380 NEXT A 

1390 PRINT AT 20,0; U$; U$; "TECLE 
mM PARA MUDAR A VELOCIDADE” | 
1400 IF INKEY$="" THEN GOTO 1400 
1416 IF INKEY$="M" THEN GOTO 103 
[) 

1420 GOTO 1100 

1438 SAVE "FORMULA 
1440 RUN 








Renato Degiovani é formado em Comunica- 
ção Visual e Desenho Industrial pela Pontiff- 
cia Universidade Católica do Rio de Janeiro. 
Há mais de um ano utiliza um NE-Z8000 para 
cálculos em sua área de trabalho. 











“Não pare seu programa 
nem perca a memória 


GERATRON 
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GUARDIAN 
Equipamentos Eletrônicos Ltda. 





G.D.M. uma loja 
com 
tratamento Pessoal 


J.R. Sysdata e 
Digitus p/entrega 
imediata TK 82, 
TK 85, CP 200, 
300 e 500 
- LEASING 
e crédito direto 
Assistência 
Técnica. 
Temos programas 
prontos em fita. 


k D [| IMFORMÁTICA LIMITADA 
R. Conde de Bonfim 346 
Lj 307 - Tijuca - RJ 
Tel. 284-8744 





2 
a A & 
o & P Peça na Loja de sua 
e oil a" preferência nossos novos 
Eu < lançamentos para Unitron, 
” e Maxx, Microengenho e 
“o Similares. 


DOMUS 


Programas de uso doméstico contendo: 
Agenda; Orçamento; Conta Corrente e 
Lista de Compras para Supermercado 


CONTROLLER 


Programas de uso Administrativo contendo: 
Cadastro de Clientes; Cadastro de 
Fornecedores; Movimento de Titulos; 
Contas a Pagar e Contas a Receber 


PROGRAMMER 


Programas de uso Profissionais contendo: 
SDUMP - Editor de Arquivos, Lista seu 
- Arquivo texto na Impressora ou 

monitor 

SLIST - Documenta e Organiza seus 
Programas 

SCROSS - Pesquisa e Relaciona Variáveis 
com Linha de Programa e exibe 
no Monitor ou Impressora 


sáFTWARE sDI 
Sempre um bom Programa 


SD! - INFORMÁTICA LTDA. 
Av. Brig. Faria Lima, 1853 - 50 Andar 
Telefone: 813-4031  — São Paulo 








CUIrSsos 


e A ChipShop oferece regularmente cursos 
de: BASIC Básico, duração de 15h, em uma 
semana; e BASIC Avançado, duração de 24h, 
em duas semanas. As aulas práticas são minis- 
tradas em laboratório próprio, com um com- 
putador para cada dois alunos. Informações à 
Rua Ofélia, 248 (em frente ao Shopping Eldo- 
rado), fone: (011) 211-4261, São Paulo, SP. 


e Cursos de Linguagem BASIC são promovi- 
dos pelo Centro de Treinamento Universida- 
de-Empresa, com 24h de duração, das 19:30 
às 22:30h. O objetivo do curso é treinar pro- 
fissionais de outras áreas em Processamento 
de Dados, enfatizando o desenvolvimento de 
aplicações para microcomputadores. Maiores 
informações na Avenida Faria Lima, 9º an- 
dar, cjs. 906/909, Itaim-Bibi, tel.: (011) 
212-3361, SP. 


e O Centro de Produção da Universidade do 
Estado do Rio de Janeiro — CEPUERJ, está 
oferecendo os seguintes cursos na área de in- 
formática: Aplicação dos Computadores Ele- 
trônicos na Engenharia, de 12/09 a 11/10, às 
2as., 3as., 4as. e as. feiras, das 19:00 às 
22:00h; Técnicas Avançadas de Programação 
de mini/microcomputadores em linguagem 
BASIC, de 03/10 a 04/11, às 2as., 4as., e Gas. 
feiras, das 19:00 às 22:00h. Inscrições e infor- 
mações na Rua São Francisco Xavier, 524, 
Pavilhão Haroldo Lisboa da Cunha, 210 a 
214, tels.: (021) 264-8143 ou 284-8322, 
r:2707 ou 2757, Rio de Janeiro, RJ. 


e Introdução ao BASIC; DOS 500 e Inicia- 
ção à computação (10 a 16 anos) são os cur- 
sos que a CP Systems SC/Ltda. está promo- 
vendo, com turmas pela manhã, tarde e noite, 
de segunda a sábado. As aulas são teóricas e 
práticas com a utilização de microcomputado- 
res. A CP Systems oferece também cursos por 
correspondência, incluído um TK82-C como 
material didático. Inscrições: Av. Paulista 
2073, cj. 1212, Conjunto Nacional, Horsa |, 
tel.: (011) 255-5454, SP. 


e A Acácia promove regularmente curso de 
BASIC e Aplicativos. Maiores informações na 
Av. Paulista, 2073, cj. 216, Edifício Horsa, 1, 
ou pelo telefone: (011) 288-1206, São Paulo, 
sP. 


e A DATA RECORD — Cursos de Processa- 
mento de Dados oferece cursos de Linguagem 
COBOL, às terças e quintas-feiras, com dura- 
ção de 50h. Maiores informações na Av. Santo 
Pao: 5450, tel.: (011) 543-9937, São Pau- 
o, SP. 


e A MICROKIT está promovendo regular- 
mente cursos de BASIC para adultos e crian- 
ças e cursos aplicativos para microcomputado- 
res como VisiCalc, VisiTrend, VisiPlot, entre 
outros. A loja está lançando, também, um sis- 
tema de aulas particulares solicitadas por 
clientes que desejem receber informações dire- 
tas e pormenorizadas sobre microcomputado- 
res. Estas aulas serão dadas na loja com horá- 
rio previamente marcado pelo telefone: (021) 
267-8291. O endereço da MICRO-KIT é Rua 
Visconde de Pirajá, 303/210, Ipanema, RJ. 


e A Engemicro e o Centro Educacional Car- 
valho de Mendonça estão promovendo cursos 
regulares de: Programação BASIC |; Lógica 
Digital |; Lógica Digital Il; Microprocessador 
Z-80; Microprocessador 8080/85; Circuitos 
Lógicos CMOS; Amplificadores Operacionais; 
Microprocessador 8086 e Teleprocessamento. 
As inscrições estão abertas atendendo a horá- 
rios pela manhã, tarde e noite ou aos sábados. 
Maiores informações pelos telefones: (021) 
220-8820 ou 220-7009 ou na Rua Evaristo da 
Veiga, 20, Rio de Janeiro, RJ. 


e “Análise de Formulários”, “Organização e 
Métodos" e “Levantamento e Documentação 
de Sistemas” são os cursos que a Sys Informa- 
tion estará realizando de 21/09 a 24/09 (o pri- 
meiro), de 28/09 a 01/10 (o segundo) e de 
05/10 a 07/10 (o terceiro). Estes cursos serão 
ministrados no Hotel San Marino em São Pau- 
lo. Maiores informações pelos telefones: (011) 
210-5292 ou 813-4726, SP. 


e A Informax estará promovendo no mês de 
setembro os seguintes cursos: Introdução à 
Microinformática, a partir do dia 19;e o Cur- 
so de BASIC, a partir do dia 20. Os dois cur- 
sos terão a duração de quatro semanas. A In- 
formax também promove cursos particulares 
em empresas. Maiores informações na Av. Bri- 
gadeiro Faria Lima, 1857, tel.: (011) 814-0682, 
São Paulo, SP. 


e O DISCOVER English Courses está intro- 
duzindo no mercado dois cursos: “Option 
Systems” e “Discover Traduções”. O primeiro 
é um curso completo de terminologia avança- 
da em inglês, para os executivos de PD, analis- 
tas e todos os profissionais da área de infor- 
mática. Já o segundo é um curso de traduções 
técnicas inglês/português — português/inglês, 
exclusivas também para a área de informática. 
Turmas abertas. Maiores informações na Rua 
Professor Gabizo, 225, Tijuca, Rio de Janeiro; 
ou pelo telefone: (021) 228-2798, RJ. 


e A Fotoleo Informática promove regular- 
mente cursos de Introdução ao BASIC e BA- 
SIC Avançado. Os cursos têm duração de dois 
meses, com três aulas por semana. Inscrições 
e informações pelo tel.: (011) '37-2702, São 
Paulo, SP. 


e A Bytess Digital Eletrônica e Informática 
oferece curso de Linguagem BASIC, com du- 
ração de 20h (quatro horas de aulas práticas). 
A Bytess atende também grupos fechados de 
empresas. Maiores informações na Rua Hun- 
gria, 526, Jardim Europa, tel.: (011) 210-7681, 
São Paulo, SP. 


e A SUCESU-RS está oferecendo os seguin- 
tes cursos: Plano Diretor de Informática, de 
19 a 23 de setembro, das 19:00 às 22:00h; 
Auditoria em Processamento de Dados, de 06 
a 07 de outubro, das 09:00 às 12:00h. O en- 
dereço da SUCESU-RS é Rua dos Andradas, 
1560, 18º andar, cj. 1801, Galeria Maicon, 
90.000, tel.: 24-0053, Porto Alegre, RS. 


SEMINÁRIOS 


e A Universidade Metodista de Piracicaba 
promoverá, de 03 a 07 de outubro, a “| Sema- 
na de Informática". Durante essa semana se- 
rão realizadas as seguintes palestras: Microin- 
formática, Auditoria em Processamento de 
Dados, Videotexto, Microfilmagem, entre ou- 
tras. Maiores informações na Rua Rangel Pes- 
tana, 762 ou pelo tel.: (0194) 33-5011, Pira- 
cicaba, SP. 

e “Sistemas Gerenciais de Banco de Dados 
para Microcomputadores — D. BASE Il e 
MDBS III” é o seminário que a AD Data Edu- 
cação e Informática estará promovendo, de 
14 a 16 de setembro. O endereço para infor- 
mações é Rua João Ramalho, 818, Perdizes, 
São Paulo, tel.: (011) 864-8200, SP. 


e A Associação Brasileira de Administração 
e Conservação de Energia — ABACE estará 
promovendo em outubro o seminário: “Con- 
trole de Processos e Computação Gráfica” 
Maiores informações poderão ser obtidas na 
Av. Paulista, 2073, Edifício Conjunto Nacio- 
nal Horsa |, sala 1020, tel.: 285-2490, São 
Paulo, SP. 





e Para informar ao leitor sobre os cursos que 
estão sendo oferecidos, a revista recolhe in- 
formações em diversas instituições ou as rece- 
be pelo correio. Portanto, não nos responsabi- 
lizamos por quaisquer alterações posterior- 
mente efetuadas por estas instituições nos 
programas ou preços. 
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Dm Do 


Data 
Dal 


CURSOS DE APERFEIÇOAMENTO 





São mais de 140 apostilas com informações completas e sempre 
atualizadas. Tudo sobre os mais revolucionário CHIPS. E você 

recebe, além de uma sólida formação teórica, KITS elaborados 
para o seu desenvolvimento prático. Garanta agora o seu futuro 


n1 


CEDM-20 - KIT 

de Ferramentas. 
CEDM-78 - KIT 
Fonte de Alimentação 
5v/1A. CEDM-35 KIT 
Placa Experimental 
CEDM-74 - KIT 

de Componentes. 
CEDM-80 
MICROCOMPUTADOR 
Z80 ASSEMBLER. 


CURSO DE 
PROGRAMAÇÃO EM BASIC 


Este CURSO, especialmente programado, oferece os 

fundamentos de Linguagem de Programação que domina o universo 
dos microcomputadores. Dinâmico'e abrangente, ensina desde o BASIC 
básico até o BASIC mais avançado, incluíndo noções básicas sobre 
Manipulação de Arquivos, Técnicas de Programação, Sistemas de 
Processamento de Dados, Teleprocessamento, Multiprogramação e 
Técnicas em Linguagem de Máquina, que proporcionam um grande 
conhecimento em toda a área de Processamento de Dados 


) 


Ea 
o É 


Sent, 


KIT CEDM Z80 

BASIC Científico. 

KIT CEDM Z80 

BASIC Simples. 

Gabarito de Fluxograma 

E-4. KIT CEDM SOFTWARE 
Fitas Cassete com Programas. 





MAIS SUCESSO PARA VOCÊ! 


Comece uma nova fase na sua vida profissional. 
Os CURSOS CEDM levam até você o mais moderno ensino 
técnico programado e desenvolvido no País. 


CURSO DE 
ELETRÔNICA E ÁUDIO 


Métodos novos e inéditos de ensino garantem um aprendizado 
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A aritmética decimal normal e a aritmética binária de ponto 
flutuante do BASIC não são a mesma coisa. Veja por quê. 


O erro de truncamento 
em BASIC 


Akeo Tanabe 


NT a aritmética decimal normal, uma expressão como 2,0 
| y | — 0,2. 10,0 =0,0 constitui-se numa verdade matemá- 

tica. Entretanto, ao se avaliar o primeiro membro da 
identidade com a aritmética de ponto flutuante da linguagem 
BASIC, essa expressão deixará de representar uma verdade. 
Isso ocorre porque nem sempre o zero decimal corresponde, 
em BASIC, a um zero computacional. 

O objetivo desse artigo é mostrar por que a identidade mate- 
mática não é preservada quando se usa a aritmética de ponto 
flutuante do BASIC. Esse quase absurdo matemático pode ser 
explicado pelo erro de truncamento, que explicaremos a seguir 
fazendo uso do conhecimento sobre progressões geométricas, 
matéria essa constante do ensino da Matemática do Segundo 
Grau. 


A ARITMÉTICA DO BASIC 


O leitor deve estar lembrado das dízimas periódicas, na 
aritmética ensinada nos cursos de Primeiro Grau. Nestas, um 
conjunto de algarismos se repete indefinidamente. A fração 
(23/99), por exemplo, gerará a dízima periódica 0,23. O traço 
em cima do número 23 é usado para indicar que ele se repete 
indefinidamente. Assim, 0,23 =0,23232323... 

Se se restringir apenas ao campo dos números reais, este 
número não tem representação exata. Ele somente terá repre- 
sentação exata no campo dos números racionais ou quando 
for escrito como a fração (23/99). 

A linguagem BASIC, quando tratando valores numéricos, 
não trabalha na base decimal. Ela usa a base dois e trabalha no 
campo dos números reais, não com os números racionais. Nes- 
te trabalho, será mostrada apenas a aritmética dos números 
reais, deixando de lado a aritmética dos números inteiros. Co- 
mo a dízima periódica (ou o seu equivalente em uma base 
qualquer) pode ser estudada como um problema especial de 
progressão geométrica (P. G.), optou-se por um tratamento 
mais generalizado. 
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Seja o número: 
0,a 12º 

da base B. 

Esta representação pode ser explicitada na forma: 

E E àn Bs a 
DE - ad EN “gn Came * Guns * 
a, a, a 
“ga * net * pr l2ns2) * 

isto é, os algarismos a,, as, ..., ân da base B se repetem indefi- 
nidamente. 


A especificação explícita do número facilita a visualização 
da expressão como a soma dos termos de uma progressão geo- 
métrica (P. G.). 

Conhecidos o primeiro termo da P. G. e o valor da razão, 
rena determinar o limite para o qual tende essa soma in- 

ta. Como podemos ver, o primeiro elemento desta P. G. é: 


A 


B" 





onde 


n-1 n-2 


= º = 
A= a,.B + a,.B toc. + a.B ou A (aça,...a ) 


n'B 
A razão q, menor que 1, é dada por 
1 


q: — 
pr 


sendo a; O primeiro termo da P.G. e q a razão, a soma é dada 
por: 


Penis 
Ê -q 
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Aplicando esta fórmula para o nosso caso, vem: 
A 
B"-1 
Esta é também, aliás, a fórmula genérica para determinar a 
geratriz (número racional para o qual a soma tende no limite) 
do número 


s= 





(0,aja,...a,)p 


Exemplo: 
(0,3) 46 


Neste caso, os parâmetros a serem considerados na fórmula 
são B=16,n=l ea, =3. A geratriz será: 
RES 
16-1 15 


donde o número (0,3): é gerado pelo racional (1/5) ou, 
ainda, pelo valor (0,2);0. Logo, o número real 0,2 da base 
decimal, quando convertido para a base 16, dará origem a uma 
fração de infinitos algarismos: (0,3)16 - 

Os computadores de grande porte da IBM usam a base 16 
na representação interna dos números reais. Portanto, para 
esses computadores o valor (0,2),o não terá representação exa- 
ta. Consideremos agora um exemplo na base 2, utilizada na 
linguagem BASIC dos microcomputadores. Seja o número 


s= ou se + 
5 


(0,0011), = 


0,001100110011..... 
Os parâmetros a serem considerados são: B =2, n=4€ea; =0, 
a; =0,a3 =1e aq =1. Aplicados na fórmula, vem: 


3 2 L 


+ Onassis tdo 23 
2*.1 15 


0.2 





s= ou” ga 
5 


Portanto, o mesmo valor (0,2),o é responsável pela geração de 
(0,0011),. Assim, quando da conversão do número (0,2) na 
base decimal para a base 2, o BASIC não terá condições para 
representá-lo de maneira exata. Por mais que aumente o núme- 
ro de algarismos significativos, a imprecisão não será nunca 
eliminada. Por isso, na representação desse número em BASIC 
há um erro de truncamento inerente à aritmética usada. Inter- 
namente, pois, o valor 0,2 da base decimal se transformou em 
um valor equivalente, do tipo 0,199999 .. .. Mais adiante, será 
possível determinar exatamente o valor da expressão. 


REPRESENTAÇÃO INTERNA 


Para exemplificar a representação interna dos números reais 
em BASIC, seja ainda o número 0,2 na base decimal. Vejamos o 
seguinte: na base 2, este valor deverá ser representado por 


(0,0011), = (0,001100110011....), 

Em BASIC, entretanto, os zeros não significativos são elimi- 

nados. Para que seja feita essa eliminação, a vírgula deverá ser 

deslocada de duas casas para a direita. Também se deverá fazer, 

evidentemente, uma correção que corresponda a este desloca- 

mento, para que o valor não se altere. Assim, 
Tra 2 


t0,0011), = (0,1100),> «27º = (0,110011001100...) 


a 
22 


O BASIC, antes de representar internamente o número real, 
coloca-o na forma: 


0, Idddddd * 2 
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Internamente, o número é representado em duas partes: a 
mantissa, onde é representada a parte fracionária do número e 
na qual o algarismo mais significativo é sempre igual a 1 (repre- 
sentação normalizada); e a característica, onde é representada 
a parte correspondente ao expoente da base 2. 

Para a mantissa, estão reservados 3 bytes. Na forma norma- 
lizada, a vírgula e o zero que a precede não precisam ser repre- 
sentados e podem ser subentendidos. Como o = roer mais 
significativo da mantissa é sempre igual a 1, inteligentemente 
em BASIC ele também não é representado, sendo, pois, suben- 
tendido. O seu espaço é ocupado pelo sinal do número. 

Assim, o número de bits qu de base 2) reservados 
para a mantissa é igual a 24. do da realização de operação 
aritmética, este algarismo subentendido é restaurado. A 
mantissa correspondente a 0,2 na base decimal é, portanto, 


010011001100110011001100 


O bit zero mais significativo corresponde ao sinal positivo e 
está ocupando o lugar do algarismo 1 subentendido. 

Para a representação da característica, o BASIC reservou 
apenas um byte. Com um byte pode ser representado um valor 
entre O e 255 e este intervalo deverá ser igualmente repartido 
entre os expoentes positivos e negativos. Assim, ao expoente 
efetivo da base é sempre somado o valor 128 (128 é a metade 
de 256) e o valor resultante é representado, em base 2, na por- 
ção reservada à característica. O menor expoente negativo é, 
dessa forma, igual a —128 que, somado à constante +128, 
resulta na característica zero. O maior expoente positivo é 
igual a +127, que corresponde à característica 255. 

A característica de 0,2 da base decimal será, portanto, em 
BASIC: 


0111 1110 


que corresponde ao valor 126, resultado da soma de —2 com 
+128 (na base decimal). Em função da representação interna 
do número real em BASIC, pode-se determinar o valor exato 
com que 0,2 decimal foi armazenado. 

Feitas as operações em base decimal e usando todos os alga- 
rismos significativos necessários, a mantissã representada em 
BASIC corresponderá ao valor 


0,7999999523162841796875 


Considerando-se que o expoente efetivo do número é —2, o 
valor da mantissa ainda deverá ser dividido por 4. Com isso, o 
valor realmente representado em BASIC como 0,2 decimal será 


0,199999988079071044921875 


Como os valores 2,0 e 10,0 da expressão especificada no 
início deste artigo são representados de maneira exata em 
BASIC, a avaliação da expressão redundará no valor — especifi- 
cado na base decimal — igual a: 


0,00000011920928955078125 
Vê-se, portanto, que o resultado da expressão não corres- 


ponde, de maneira alguma, a um valor igual a zero. De fato, o 
zero decimal não se transformou em zero computacional. E 





Trabalhando na área de Informática desde 1963, Akeo Tanabe é Enge- 
nheiro Eletrônico pelo Instituto Tecnológico da Aeronáutica (1964) e 
Mestre em Ciências em Informática pela Pontifícia Universidade Católi- 
ca do Rio de Janeiro (1970). 
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Aplicações em 
Saneamento Básico 


Apresentamos em conjunto duas aplicações específicas para a 
área de Saneamento Básico (Engenharia Hidráulica) que nos 
foram enviadas por engenheiros da SABESP. 

Uma é um programa para a calculadora HP-41C que executa 
cálculos relativos a diques de terra para lagoas estabilizadoras 
de esgotos. A outra aplicação já é um programa em BASIC, 
desenvolvido no micro PC-1211 para o dimensionamento 

de trechos de redes de distribuição de água. 


Eventualmente, MICRO SISTEMAS abrirá suas páginas 
para aplicações específicas como estas, na forma de 
pequenos blocos de dois ou três programas ou artigos 
sobre um mesmo tema básico, abrangendo áreas distintas 
como Medicina, Direito, Engenharia, Administração etc. 
Isto possibilitará a divulgação de programas e artigos que, 
apesar de suas especificidades, poderão ser úteis para os 
profissionais destas áreas. 


Aplicação 1 — HP-41C 


Hilton Felício dos Santos 


me dos diques de terra formadores de uma lagoa de 
estabilização de esgotos sanitários através de uma cal- 
culadora programável HP-41C, calculando-se também a profun- 
didade do corte necessário no fundo da lagoa para gerar o vo- 
lume de terra que será utilizado para a construção dos diques. 
Para os leitores não familiarizados com o objeto do artigo, 
uma lagoa de estabilização é um processo largamente utilizado 
para tratamento de esgotos sanitários urbanos em pequenas co- 
munidades. A luz solar, a fotossíntese das algas e os microorga- 
nismos presentes na lagoa encarregam-se de consumir e estabili- 
zar a matéria orgânica presente nos esgotos, enquanto o repou- 
so da água represada promove sua decantação. O efeito conju- 
gado é o de um líquido ligeiramente esverdeado (devido às 
algas) mas livre de odores e principalmente de cerca de 90% de 
sua DBO inicial. (A DBO — Demanda Bioquímica de Oxigênio 
— é uma medida usada pelos sanitaristas para avaliar a polui- 
ção das águas.) O líquido tratado é então descarregado num rio 
próximo, sem problemas para a vida aquática. 


VOLUME DOS DIQUES 


Para o cálculo do volume dos diques de uma lagoa de estabi- 
lização quadrada ou retangular, usa-se uma tabela de valores 
que é função da área do espelho d'água e dos demais parâme- 
tros indicados na figura 1. 

O programa também calcula a escavação necessária para ge- 
rar o volume dos diques. Em princípio, admite-se que a área a 
ser escavada seja a mesma do fundo da lagoa. Se esta for inade- 
quada, será uma área de empréstimo em qualquer lugar apro- 
priado, com as mesmas dimensões do fundo da lagoa. 

Para a formação dos quadros, foram assumidos os seguintes 
valores: 


Para os Quadros 1,2,3e 4 
— Fator de empolamento da terra escavada (Fe) — 1,30 
— Fator de compactação dos diques (Fc) — 0,80 


(0) objetivo deste programa é realizar o cálculo do volu- 


58 


— Altura dos diques (H) — 2,30 
— Profundidade (P) — 1,80 

— Borda livre (B) — 0,50 

— Largura da crista (L) — 2,00 
— Talude externo (1/He) — 1:1,5 


Para o Quadro 1 
— Forma da lagoa — Quadrada 
— Talude interno (1/Hi) — 1:3 


Para o Quadro 2 
— Forma da lagoa — Quadrada 
— Talude interno (1/Hi) — 1:2 


Para o Quadro 3 

— Forma da lagoa — Retangular 
— Proporção dos lados — a'=2b” 
— Talude interno (1/Hi) — 1:3 


Para o Quadro 4 

— Forma da lagoa — Retangular 
— Proporção dos lados — a*=2b” 
— Talude interno (1/Hi) — 1:2 


Os quadros servem como exemplo do processamento do 
programa. Os leitores podem, entretanto, formar outros qua- 
dros, variando um ou mais dos parâmetros que indicamos. 

A área do espelho d'água necessária é determinada pelo en- 
genheiro sanitarista em função da carga orgânica do projeto. 
As avaliações que apresentamos a seguir são feitas em fun- 
ção da área do espelho d'água. 


Volume = Base média x Perímetro (veja figura 1) 
V=Bm.2(a+b) 

a =a'+2x 

x = Bordalivre . (Hi) + L/2 =(B) (Hi) + L/2 
V=Bm.(22+2b) =Bm.(2a' +4x+2b' + 4x) 
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TH) the) 


1. Início do processamento. 
O quesito no visor índaga 
se o valor Hi=2,00 m é a- 
ceitável. Se for pressio- 
ne R/S, caso contrário, o 
novo valor e R/8. 


2. Da mesma forma aceita-se! 
ou rejeita-se HE=1,50. Es 
te valor corrente é acei- 


HI=1:( )? 2,00 


HE=1:( )? 1,50 


- 


tável 


Largura da crista 


R/ 


H.DIQUE? 2,30 


s 
R/s L.CRISTA? 2,00 
4. Superfície livre (m?) R/s 


S.LIVRE? 35.000 




















Figura 1 


V=Bm.(22'+2b'+8x 
V =Bm .(2a'+2b'+8 (B) (Hi) + L/4) (1) 

Determinando a” e b” em função da área (A) do espelho 
d'água, teremos: 


(ao) (bi) = A | d! = (4/2)1/2 
a! = 2(4/2)1/2 


Substituindo a" e b' em V, temos: 


(a!) (b') = A 
a! = 2b! 


Vr = Bm. 
vr = Bm. 


[6 (n/2) 1/2 + a(n/2)!/2 + e(B) (mi) + L/A] 
[Ecaz2)!/2 + e(B) (mi) + 1/5] 


E como temos que: 


(H)CHI) + L + (H)(He) + L 





2 
Bm = 0,5 p2 (Hi + He) + 2 LH 


Para uma lagoa retangular em que a” = 2b”, teremos: 


172 


(0) vr= DÊ (ui she) + 218] [(n/2)!/2 + u(o)(ni) + 17] 


O volume dos diques é dado em função de: 

altura dos diques 

Hi = afastamento horizontal unitário do talude interno (1 :Hi) 
He= afastamento horizontal unitário do talude externo (1:He) 
L =largura da crista do dique 

A = área do espelho d'água 

B = borda livre 
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5. Borda livre 


10.000 R/5 


BORDA? 0,50 


6. Profundidade d'água 


R PROP.ÁGUA? 1,80 





EA 


Fator de empolamento 


Vs 
R/5 





Fazer opção de cálculo: 
de 
10.000 m? é de uma lagoa 


A área superficial 


retangular (RET) ou qua- 
drada (QUAD). 

Pressione a tecla amarela 
e a ou b conforme o caso. 


tecla amarela e b 





Volume geométrico dos ta 
ludes 

Volume de corte 
Profundidade do corte no 
fundo da lagoa ou em área 
de igual dimensão. 








Repetir os ítens 8 e 9 para 
cálculo das demais linhas do 
Quadro nº 1. 


Todos parâmetros podem ser 
acessados e modificados ( 
ou confirmados) aleatoria- 
mente, pressíonando-se as 
teclas (modo USER) A a J 
respectivamente correspon- 
dentes à inicialização fei 
ta dos ítens de 1 a 7. Exem 
plo: 

se desejar verificar a 
linha do Quadro nº 4: 


2a. 


Lado maior do retângulo 
Lado menor do retângulo 
Volume geométrico dos ta 
ludes 

Volume do corte 
Profundidade do Corte 


Correspondência Comandos/ 
Parâmetros: 


A 
2R/8 
E 
15.000 R/S 
J 
tecla amarela c a 
R/s 


R/8 
R/8 
R/s 


RET=a/QUAD=b 


LADO=100 





VQ=4.195 
VQ/Ferc=4.033 


P.CORTE=1.12 
RET=a/QUAD=b 


L.CRISTA? 2,00 
Fc? 0,80 


Hi=l: 2? 3,00 
HE=1: 7 1,50 
S. LIVRE? 10.000 
BORDA? 0,50 
RET=a/QUAD=b 
a=173 

b=87 


(Hi) - 


Afastamento horizontal do talude interno 
Afastamento horizontal do talude externo 
Altura do dique 

Largura da crista 

área da superfície lívre de água 

Borda livre 

Profundidade d'água 


Figura 2 — Instruções de uso do programa LAG. 
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141x71 
173x87 

200x100 
224x112 
245x122 
265x132 




















Quadro 2: Lagoa a=b, 1 [Hi =1:2. 


Assim, para uma lagoa quadrada a” =b”, voltando em (1), 


temos: 


= Bm. (ha! + B(B)(Hi) + L/4) 


vo = Bm. (M(A)!/2 4 B(B) (HI) + LIL) 


Donde: 


(um vç = [82 cui + me) + 218). [2 (401/24 aco) (ui) + 1/8] 


Se for extraído da caixa de empréstimo este volume geomé- 
trico V, o total de terra obtida ocupará um volume final de 
cerca de 30% superior ao calculado, devido ao empolamento, 
ou à perda da compacidade natural do solo, donde teremos: 


V't=Vx 1,30 


Por outro lado, o volume V” será compactado durante a 
construção dos diques, reduzindo-o para (admitindo-se 20% 
de compactação): 


v'! = 0,8(v x 1,30) 


Desta forma, o volume V desejado será afetado pela combi- 
nação dos dois fatores. Se o empolamento for maior que a 
compactação, deverá ser extraído da caixa de empréstimo um 
volume igual a 96% do calculado, se forem usados os valores 
exemplificados: 


v=(0,8)(1,30)(k) v 


De modo que: 


(0,8) (1,30)(K) = 1 


TER 


141x71 
173x87 
200x100 
224x112 
245x122 








265x132 


Quadro 4: Lagoa a=2b, 1 [Hi =1:2. 





De uma forma geral, deve-se multiplicar o volume V calcula- 
do pelo inverso do produto dos fatores de empolamento e 
compactação, tomados em relação ao volume unitário. 

O cálculo da profundidade de escavação no fundo da lagoa 
ou numa área de mesmas dimensões que possua subsolo favo- 
rável à construção dos diques é: 


Volume do corte = Volume calculado 


para os diques x 





(Fe) (Fc) 


A profundidade a escavar será o volume acima (Vr ou Vq, 
conforme o formato da lagoa) dividido pela área do fundo. Es- 
ta última, expressa em função do espelho d'água conhecido, é: 
ERA RE. 

(Fe) (Fc) (af) 


Af = (at!')(bt!) 
ari a! 
Dire do 


(ver fig. 1) 
-2y = a! -2(P)(HI) 


- 2(P) (HI) 


Já foram determinadas as expressões de a” e b' em função 
da área do espelho d'água, donde temos: 


agem [etn/2)!/2 catey uid) [tn/2)!/2 cap) (ui)] 
E para a lagoa quadrada: 

Aq M/S aq) (ui)] 2 
Donde: 


Vr 
dl A PPP RO PÇ O PR É 
(Fe) (re) [2(0/2)"/2 ca(p) (mi). [4/2012 -2(p) (1)] 


v 
"PS  re)tre) [1/2)172 -2(P) (MJ)? 
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Sendo que: 
Vr = volume calculado para o dique da lagoa retangular (II) 
Vq = idem para a lagoa quadrada (III) 


Fe = fator de empolamento maior ou igual a 1. 
Fe = fator de is go, ud menor ou iguala 1. 
A = área do espelho d'água 


P = profundidade da lâmina d'água 
Hi = afastamento horizontal para a altura unitária do talude 
interno 


O PROGRAMA 


[o) a que apresentamos em anexo, denominado LAG, 
foi feito para a HP-41C e calcula as seguintes dimensões: 
Vr = volume geométrico dos diques de uma lagoa retangular 
Vr/FeFc = volume de corte na área de fundo da lagoa (ou em 
uma área de dimensões equivalentes) para construção dos di- 
ques de Vr 
pr = profundidade do corte Vr/FeFc 
Vq = volume geométrico dos diques de uma lagoa quadrada 
Vq/FeFc = volume de corte na área de fundo da lagoa (ou em 
uma área de dimensões equivalentes) para construção dos di- 
ques de Vq 
Pq = profundidade do corte Vq/FeFe 


A configuração mínima necessária para usar o programa 
LAG é a da HP-41C com um módulo de memória, não sendo 
preciso uma impressora. 

Uma vez executado SIZE 011, deve-se gravar as instruções 
e colocar a máquina no modo USER. Os comandos A a J e a e 
b são usados para introdução e/ou aceitação dos dados. 

A avaliação do corte necessário para formar os taludes é fei- 
ta pressupondo-se que o terreno da obra seja plano (corte de 
profundidade única) e horizontal (taludes interno e externo de 
saia constante em todo o perímetro). 

A título de exemplo, considere-se a formação do Quadro I 
com os parâmetros acima indicados nas instruções para o 
usuário (figura 1). 

Deve-se notar que ao atribuir-se em números redondos a 
carga orgânica de DBOs?º de 50 gr/hab, cada quilo de DBO 
aplicado equivale a 20 habitantes servidos. Com uma taxa de 
150 kg/DBO por hectare por dia, a cada hectare de superfície 
livre das lagoas correspondem 3 mil habitantes, ou seja, as la- 
goas dos Quadros 1 a 4 atendem de 3 a 10,5 mil habitantes. 


CONCLUSÃO 


Embora dirigido para lagoas de estabilização, este programa 
pode também ser utilizado para a avaliação de volumes de 


Cálculo de diques de uma lagoa estabilizadora de esgotos 


OIÓLBL "LAG" 

02 cr 28 

03 sr 29 

O44LBL A 

05 cr 22 

06 FIX 2 

07 "HI=l:< >?" 

08 ARCL 00 

09 PROMPT 

10 Fs?2c 22 

11 sTO 00 

126LBL B 
cr 22 
FIX 2 
"HE=l:< >?" 
ARCL 01 
PROMPT 
FS?c 22 
STO 01 

204LBL C 

21 cr 22 

22 FIX 2 

23 "H. DIQUE?" 

24 ARCL 02 

25 PROMPT 

26 FS?C 22 

27 sTO 02 

284LBL D 

29 cr 22 

30 FIX 2 

31 "L. CRISTA?" 
ARCL 03 
PROMPT 
FS?2c 22 
STO 03 

364LBL E 

37 cF 22 

38 FIX O 

39 "S, LIVRE?" 

40 ARCL 04 


41 PROMPT 
42 FS?C 22 
43 STO 04 
44 FIX 2 
450LBL F 
46 cr 22 
47 FIX 2 
48 "BORDA?" 
49 ARCL 05 
50 PROMPT 
51 FS?C 22 
52 STO 05 
534LBL G 
54 cr 22 
SS PLZ 2 
56 "PROF. AGUA?" 
57 ARCL 06 
58 PROMPT 
59 FS?C 22 
60 STO 06 
619LBL H 
62 cr 22 
63 FIX 2 
64 "re?" 
65 ARCL 07 
66 PROMPT 
67 FS?C 22 
68 STO 07 
ÓLBL I 
cr 22 
FIX 2 
“Fc?” 
ARCL 08 
PROMPT 
75 FS?C 22 
76 sTO 08 
7WLBL J 
78 "RET=a/QUAD=b" 
79 TONE 9 
80 PROMPT 


82 
83 
84 
8s 
86 
87 
88 
89 
90 
91 
92 


94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 


69 
70 
AS 
72 
73 
74 
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819LBL a 


93, 


159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 RTN 
1704LBL 
171 RCL 
172 RCL 
173 * 
174 4 
175 * 
176 RCL 
177 8 
178 / 
179 + 
180 RTN 
1814LBL 
182 RCL 
183 RCL 
184 * 

185 2 

186 * 

187 RIN 
188 LBL 04 
189 RCL 04 
190 2 

191 / 

192 SQRT 
193 RTN 
1944LBL 05 
195 RCL 07 
196 RCL 08 
197% 

198 END 


120 XEQ 00 
2 121 GTO 3 
XEQ 04 1224LBL b 
ke 123 FIX 0 
124 RCL 04 
125 SQRT 
126 "LADO=" 
127 ARCL X 
128 PROMPT 
129 xEQ 02 
130 XEQ 04 
131 2 


FIX O 
"a=" 
ARCL X 
PROMPT 
LASTX 
“b=" 
ARCL X 
PROMPT 
XEQ 02 132: + 
XEQ 04 133 + 
3 134 xEQ 01 
» 135 * 

+ 136 
XEQ 01 137 
s 138 
139 
140 
141 
142 
143 
144 
145 


FIX 0 
nyqe" 

XEQ 00 
"VQ/FeFc=" 
XEQ 05 

/ 

XEQ 00 
FIX 2 

XEQ 04 

XEQ 03 


"yR=" 
XEQ 00 
"VR/FeFc=" 
XEQ 05 

/ 

XEQ 00 
FIX 2 

XEQ 04 146 
STO 09 147 
2 148 
” 149 
XEQ 03 150 XEQ 00 
STO 10 151 GTO J 
E 1524LBL 00 
RCL 09 153 TONE 9 
RCL 10 154 ARCL X 
- 155 AVIEW 
pj 156 STOP 
FA 157 RTN 
"P.CORTE=" 158€LBL 01 


x+2 


A 
"P.CORTE=" 
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APLICAÇÕES EM SANEAMENTO BÁSICO 





compensação entre corte e aterro na construção de estradas de 
rodagem. A estrada seria do tipo greide elevado, com as caixas 
de empréstimo situadas ao longo da plataforma. 


O solo de implantação seria plano e a plataforma horizon- 
tal, para validade da hipótese de uma altura de crista (no caso, 
plataforma) constante e considerando-se a mesma seção média 
ao longo do trecho de interesse. 


Ao comando J (RET= a/QUAD= b), deveria ser feita a opção 
QUAD (tecla amarela e b), interpretando-se o lado da lagoa de 
forma quadrada, como igual à quarta parte da extensão do tre- 
cho da rodovia sob análise. A caixa de empréstimo teria a al- 


tura indicada pela profundidade de corte (P.CORTE) e o fun- 
do uma área igual à calculada pela expressão: 


af =[(0/2)1/2 . 2 (p) (Hi) 2 


Onde A, quadrado dos lados (quarta parte do trecho) assu- 
me o papel de uma constante de cálculo. 


Hilton Felício dos Santos é Engenheiro Civil formado pela UFMG em 
1964, com diversos cursos de extensão na Califórnia e no Japão, e tra- 
balha na SABESP — Companhia de Saneamento Básico do Estado de 
São Paulo, no cargo de Superintendente. 


Aplicação 2 — PC-1211 





Antonio Carlos Franco Zuccolo 





ste programa foi elaborado para o dimensionamento 

de cada um dos trechos componentes de uma rede de 

distribuição de água do tipo ramificada, pelo método 
de seccionamento fictício a partir de uma rede com pressão 
disponível conhecida. Sua aplicação volta-se para projetos de 
implantação de redes em loteamentos, conjuntos habitacionais 
ou mesmo em projetos de ampliação. 


O programa foi escrito em linguagem BASIC no Pocket 
Computer Sharp PC-1211 e utiliza-se da fórmula HAZEN- 
s o cálculo da perda de carga e da expressão V 

max 0,6 +1 O ndo V max é a velocidade máxima (em m/s) 
rmitida para o diâmetro escolhido e D é o diâmetro interno 


O programa foi feito para operar com vazão de até 150 1/s, 
permitindo a utilização de tubos PVC e F9 F9, de acordo com 
a tabela da figura 1. 

Como recurso extra, o p dá uma mensagem orien- 
tando sobre a possibilidade do diâmetro ser menor que o esco- 
lhido toda vez que a velocidade for inferior a 0,30 Eq 





Antonio Carlos Franco Zuccolo é Engenheiro Civil com cursos de espe- 
cialização em Engenharia Sanitária e Ambiental. Atualmente, Antonio 
Carlos trabalha na SABESP — Companhia de Saneamento Básico do Es- 
tado de São Paulo e está preparando sua dissertação de mestrado em 
Saúde Pública, onde inclui a aplicação de um Sistema de Gerenciamento 
de Bancos de Dados — SGBD como instrumento para administração de 
recursos financeiros em obras de saneamento. 





em metros) do tubo escolhido. 





Dimensionamento de trechos de redes de distribuição de água 


5:REM *ZUCCOLO 
+ CX. POSTALI7 
11-sp* 

10:"A":PRINT "A 
GUA" 

20: INPUT "NT="; 
G,"P D M(MCA 
J=";P,"C TM 
=";M,"C TJ= 
"55, "EXT(M = 
";L, "VAZÃO (L 
/S)=";0 

30 INPUT "CODIG 
O DO MATERIA 
L=";Y 

31:IF Y=00GOSUB 
500 

32:1IF y=01GOSUB 
502 

33:IF Y=02GOSUB 
504 

34:IF Y=03GOSUB 
506 

35:IF Y=04GOSUB 
508 

36:IF Y=05GOSUB 
510 

37:IF Y=06GOSUB 
512 

38:IF Y=07GOSUB 
514 

39:IF Y=08GOSUB 
516 

40:IF Y=09GOSUB 
518 

41:IF Y=10GOSUB 
520 


62 


42:IF Y=11GOSUB 
522 

43:IF Y=12GOSUB 
524 


44:IF Y=13GOSUB 
526 

45:IF Y=14GOSUB 
528 

46:IF Y=15GOSUB 
530 

47:IF Y=16GOSUB 
532 

48:IF Y=17GOSUB 
534 

49:1IF Y=18GOSUB 
536 


50:IF Y=19GOSUB 
538 4 

60:LET S=(1*D”2 
1/4 

70:LET V=0/(S*1 
000) 

BO:LET X=.6+1.5 
*D 

90:IF V>XTHEN 1 
00 

91:IF V<.3THEN 
102 

92:1IF V<XTHEN 1 
10 

100:PRINT "ADOTA 
R D>QUE ";Y 

101:GOTO 30 

102:PRINT "D POD 
E SER< ";Y 


103: INPUT "COD S 
EQ=";2Z 

104:IF Z=OTHEN 1 
10 

105:IF Z=1GOTO 3 
0 

110:H=(L/100) *.0 
03*(0/C)"1.8 
52*D"-4.8655 

115:PRINT "N.TRE 
CHO=", USING 
"ARA, ";G 

120:PRINT “COD M 
ATERIAL", 
USING "eee"; 


Y 

125:PRINT "VELOC 
(M/S) =", 
USING “em .va 


FEV 
130:PRINT "P CAR 
GA(MCA) =", 

USING “ema. 
..";H 
140:LET N=P+M 
145:PRINT "CP M 
ON=",USING " 
RARA AA ;N 
150:LET B=N-H 
15S:PRINT "CP J 
UZ=", USING " 
“MA AR; B 
160:LET E=B-J 
165:PRINT "PRE.J 
UZ=", USING " 
FARA MAVSE 


170:GoTO 20 
500:D=.0278,C=12 
0 
501:RETURN 
502:D=.0352,C=12 
0 
503:RETURN 
504:D=,044,C=120 
505:RETURN 
506:LET D=.0534, 
C=130 
507:RETURN 
508:D=.0756,C=13 


0 
509: RETURN 
510:D=.0977,C=13 
0 


511:RETURN 
512:D=.1412,C=13 
0 


513: RETURN 
514:D=.1084,C=13 
0 


515:RETURN 

516:D=.1564,C=13 
0 

517:RETURN 

518:D=.2042,C=13 
o 


519:RETURN 
520:D=.252,C=130 
521: RETURN 
522:D=.05,C=100 
523: RETURN 
524:D=.075,C=100 
525: RETURN 


526:D=.1,C=110 
527: RETURN 
528:D=15,C=110 
529: RETURN 
530:D=.2,C=110 
531: RETURN 
532:D=.25,C=110 
533: RETURN 
534:D=.3,C=110 
535: RETURN 
536:D=.35,C=110 
537: RETURN 
538:D=.4,C=110 
539: RETURN 
540:REM *CODIGOS 
* 


541:REM *PVC-JS; 
EB-892(00,32 
;01,40;02,50 
) *PVC-JE; EB- 
183(03,50;04 
+75;05,100;0 
6,150) 

542:REM *PVC-DFF 
(07,100;08,1 
50;09,200;10 
,250) 

543:REM FF-DUCTI 
L(11,50;12,7 
5;13,100;14, 
150;15,200;1 
6,250;17,300 
:18,350;19,4 
00) 

544:REM MICRO-SI 
STEMAS/83 
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Curso de Microcomputador. 


Grátis do CP-200, CP-300 e 


CP-500 


FAÇA JÁ SUA INSCRIÇÃO — VAGAS LIMITADAS 


” 


Informações e Inscrições pelos telefones: 


222-3458, 220-5794, 220-9113 e 223-7388 


e Noções da linguagem BASIC 

e Material didático GRATUITO 
e Aulas práticas e teóricas 
e Dicas sobre programação e operação 


NOVIDADES 


CP-300/CP-500 
JOGOS 
BATALHA 


FORCA (F) 
TIRO AO ALVO 


TABUADA (F) .. 4.000* 
COMANDO . UFO 
PATRULHA (F).. 
INVASORES (F) . 
PADDLE PINBALL 


5.000* 
5.500* 


DISCOS VOADO- 

RES (F) 

DANCING 

MON (F) 

XADREZ (F)... . 10.000* 

CUBO (F) 

JORNADA NAS 

ESTRELAS (F) .. 9.500*% 

ELIZA (F) 7.000* 

COSMIC (F) .... 9.600* 

SCARFMAN (F) . 9.600* 

LUNAR (F) 9.600* 

BARRICADA (F) . 9.600“ 

GALAXI(F) .... 9.600* 

METEOR (F).... 9.600* 

PENETREITOR(F) 9.600* 

10 JOGOS EM BA- 

SIC (em disco, boa, 

sky, pouso lunar, 

jornada, teaser, cu- 

pim,hopper, cram, 

fireman, space fire. 24.000 

COMPLETA LINHA DE 
PROGRAMAS PARA 

ENGENHARIA. 





APLICATIVO 
- CADASTRO DE 
CLIENTES (D) 15 ORTN 
20 ORTN 
- MALA DIRETA 
(9) 
- FINANÇAS (D) . 30.000 
- PROCALC (D) .. 40.000 
- VIDEO (F) .... 10.000* 
- BANNER (F)... 6.400* 
- SCRIP (D) 


- CONTROLE DE 
[- (070 | +59 () 

- DIRETÓRIO (D) 

- BANCO DE DA- 
[/oÃ(o)) 

- CARTA ASTRAL 


6.400* 
16.000 


- ODONTO (F) .300RTN 

(15) 50 ORTN 
- CONVERT (F).. 6.400 
- LISTA (D) 16.000 
- SUPERTECLA 


- EDITOR (D) ... 
- SOUND (F).... 


32.000 


çres 


SOFTWARE 


cP-200 
JOGOS 
- BATALHA AÉ- 


- BATALHA NA- 
VAL 


- TIRO AO ALVO 
- BIORRITMOI.. 
Rondo) 

- TABUADA .... 
- SIMULADOR DE 


- COMANDO UFO 
Mo 


- BATALHA CÓS- 


- 3D DEFENDER . 
- KRAZY KONG . 
- REDALERT... 
- PUC MAN 

- INTELECTO 








NOVIDADES 


APLICATIVOS 
CONTAS A: PA- 
GAR 


CADASTRO DE 
CLIENTE 

VIDÊO TÍTULO 
VU-CALC 


15.000 


PROMOÇÕES: 

CP-200 

- PACOTE ECO- 
NÔMICO (F) ... 

CP-300/CP-500 

- 10 JOGOS EM 
FITA (F) 


4.000 


24.000 


LEGENDA E 

F - Para programa em fita $ 

D - Para programa em disco 

* Acrescentar Cr$ 6.000,00 
p/versão em disco 


PREÇO ESPECIAL 
2 POR ATACADO 


D cursos 


«. O] SOFTWARE 


O EQUIPAMENTOS 


Filcres Importação e Representações Ltda. 

Rua Aurora, 165 — CEP 01209 — São Paulo — SP 

Telex 1131298 FILG BR — PBX 223-7388 — Ramais 2, 4, 

12, 18, 19 — Diretos: 223-1446, 222-3458, 220-5794 e 
220-9113 — Reembolso — Ramal 17 Direto: 222-0016 — 220-7718 


MESAS e ARQUIVOS e FORMULÁRIOS e MICROS e IMPRESSORAS e DISQUETE e MESAS e ACESSÓRIOS 


e SVHOSSIHdINI * SOHIIIA * SOIHYINNHOS é SOAINOHV e SOIHOSSIIV * ILINDSIA * SVHOSSIHAWI é SOHIIA * SOIHYINNHOS e SOAINDOHV 








Veja como funciona a lógica de programação, aprenda a construir um algoritmo, 
e comece a desenvolver seus próprios programas. 








Uma questão de lógica 


Maurício Costa Reis 


ele?” Esta é uma velha questão, que envolve duas al- 
ternativas: ou compramos programas já prontos ou 
então os desenvolvemos por conta própria. 

No primeiro caso a tarefa é relativamente simples, ou seja, 
é só escolher entre os programas (ou jogos!) existentes no mer- 
cado aquele que melhor se adapta aos nossos objetivos. Por 
exemplo, se a intenção é controlar a despensa de sua casa, bas- 
ta você procurar um programa de controle de estoque. 

E se optamos pela segunda alternativa? Bom, aí a realidade 
já é outra, um pouco mais complicada. 

Sem dúvida, os micros são fáceis de serem utilizados, princi- 
palmente porque a maioria deles trabalha com a linguagem BA- 
SIC. No entanto, é justamente esta simplicidade que vem con- 
fundindo muita gente, Se queremos programar precisamos, an- 
tes, aprender o BASIC! 

Escrever um programa não é a mesma coisa que escrever, 
digamos, uma carta. Ele deve ser exato e obedecer a uma se- 
quéncia coerente de comandos — e nós temos que ser sensíveis 
a isto, Para falar bem em inglês é necessário também pensar em 
inglês. O mesmo ocorre com o micro: para programá-lo deve- 
mos raciocinar de acordo com a sua lógica, a lógica de progra- 
mação. 


P| ronto, comprei um micro! E agora, o que faço com 


DESENVOLVENDO UMA IDÉIA 


Nossa intenção é escrever um programa, correto? Que tal 
preparar antes todos os passos a serem seguidos? Você verá que 
isto sempre irá auxiliá-lo muito quando for desenvolver um 
novo programa. 

Utilizaremos primeiro um exemplo prático do nosso coti- 
diano e depois então um exemplo de programa. Vamos nos 
imaginar como sendo um micro (vamos, pelo menos, tentar). 


64 


Isto significa que só podemos obedecer ordens exatas e bem 
definidas agora. 

Pois bem, estamos dirigindo calmamente quando, de re- 
pente... estoura um pneu. O que devemos fazer? 
— TROCAR O PNEU 

Parece óbvio, mas faltam alguns detalhes. Podemos tentar: 

. FREIAR O CARRO COM O FREIO DE MÃO 
- LEVANTAR O CARRO COM O MACACO 
. TIRAR O PNEU FURADO 
COLOCAR O ESTEPE (PNEU RESERVA) 
Mas como levantar o carro se ainda não peguei o macaco 
na mala do carro? Então, temos que: 
2.1 — ABRIR A MALA DO CARRO 
2.2 —- PEGAR O MACACO 
2.3 — INSTALAR O MACACO 
2.4 — ACIONAR O MACACO 
Como o carro é novo e você não sabe onde colocar o ma- 
co, você deve: 
3.1 — ABRIR O PORTA-LUVAS 
.3.2 — PEGAR O MANUAL DO CARRO x ; 
.3.3 — VERIFICAR A POSIÇÃO DE INSTALAÇÃO DO 

MACACO 
2.34 — COLOCAR O MACACO 
Mas não é tão simples assim tirar um pneu. Você precisa: 

— TIRAR UMA PORCA 


Erro — 


++ 


3.1 
3.2 — TIRAR UMA PORCA 
3.3 — TIRAR UMA PORCA 
3.4 — TIRAR UMA PORCA 
3.5 — TIRAR O PNEU 
Êpa, quanta repetição! Vamos tentar simplificar: 
3 
3 


1 — TIRAR UMA PORCA É 
-2 — SE JÁ TIROU 4 PORCAS SIGA SENÃO VOLTE 
PARA 3.1 
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3.3 — TIRAR O PNEU 

Ficou melhor assim, pois a ordem para tirar a porca só apa- 
rece uma vez e está controlada por uma condição. Esta ordem 
também poderia ser escrita de outra maneira: 
3.1 — FAÇA 4 VEZES: TIRAR UMA PORCA 
3.2 — TIRAR O PNEU 

Da mesma forma podemos desenvolver o item 4: 
4.1 —- ABRIR A MALA DO CARRO 
4.2 — PEGAR O ESTEPE 
43 — COLOCAR O ESTEPE NO LUGAR DO PNEU FURADO 
4.4 — FAÇA 4 VEZES: COLOCAR UMA PORCA 

Um pequeno detalhe: você observou que a mala do carro já 
estava aberta? Isto significa dizer que o item 4.1 não é neces- 
sário e que podemos omiti-lo. 

Agora falta guardar os objetos utilizados; e então acrescen- 
tamos: 
5. GUARDAR OS OBJETOS 
5.1 - GUARDAR O MACACO 
5.2 - GUARDAR O PNEU FURADO 
mas O macaco ainda está mantendo o carro no ar. Precisamos: 
5.1.1 — ABAIXAR O CARRO 
5.1.2 — TIRAR O MACACO 
5.1.3 - GUARDAR O MACACO NA MALA 

Vamos ver como ficou a nossa troca de pneu: 
— TROCAR O PNEU 
1. FREIAR O CARRO COM O FREIO DE MÃO 
2. LEVANTAR O CARRO COM O MACACO 
2.1 —- ABRIR A MALA DO CARRO 
2.2 = PEGAR O MACACO 
2.3 — INSTALAR O MACACO 
2.3.1 — ABRIR O PORTA-LUVAS 
2.3.2 — PEGAR O MANUAL DO CARRO 
2.3.3 — VERIFICAR A POSIÇÃO DE INSTALAÇÃO DO 

MACACO 
2.34 — COLOCAR O MACACO 
2.4 — ACIONAR O MACACO 
3. TIRAR O PNEU FURADO 
3.1 — FAÇA 4 VEZES: TIRAR UMA PORCA 
3.2 — TIRAR O PNEU 
4. TIRAR O ESTEPE 
4.1 - PEGAR O ESTEPE 
4.2 - COLOCAR O ESTEPE NO LUGAR DO PNEU 
FURADO 
4.3 - FAÇA 4 VEZES: COLOCAR UMA PORCA 
5. GUARDAR OS OBJETOS 
5.1 - GUARDAR O MACACO 
5.1.1 — ABAIXAR O CARRO 
5.1.2 = TIRAR O MACACO 
5.1.3 - GUARDAR O MACACO NA MALA 
— GUARDAR O PNEU FURADO 

Pronto, o pneu está trocado. Repare que, efetivamente, 
só devemos executar os itens destacados. 

Agora vamos tentar resolver um problema de programação. 
Como exemplo, podemos usar o cálculo do MDC (Máximo 
Divisor Comum) entre dois números. Para tal, aplicaremos o 





Observe que: 


quociente 
dividendo 





Figura 1 — MDC(42,27) = 3 
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“Método de Euclides” (figura 1). Vejamos então como calcu- 
lar o MDC entre 42 e 27, que pode ser representado por 
(42,27): 
1. Dividendo < 42 
2. Divisor < 27 
3. Calcular o quociente 
4. Calcular o resto 
S. Se o quociente já é o MDC 
então (6.) Terminar 
senão (7.) Atualizar a tabela 
Para calcular o quociente e o resto: 
3.1] — Quociente « parte inteira do resultado da divisão do 
dividendo pelo divisor 
4.1 — Resto < dividendo — (quociente x divisor) 
O quociente só será o MDC caso o resto seja igual a O (zero), 
e então podemos substituir no algoritmo: 
5. Se o resto igual a O 
E para terminar: 
6.1 — MDC « quociente 
6.2 — Imprimir o valor do MDC 
6.3 — Fim do método 
Só falta detalhar a parte mais importante, pois, após atuali- 
zar a tabela, devemos voltar ao processo: 
7.1 — Dividendo « divisor 
7.2 — Divisor «< resto 
7.3 — Voltar para 3 
Simplesmente, o que fizemos foi escrever como agir para 
calcular o MDC entre dois números utilizando as barras. Se 
quisermos tornar o método mais geral, basta substituir os dois 
primeiros passos por: 
1. Ler um valor para o dividendo 
2. Ler um valor para o divisor 


ALGORITMOS E TOP-DOWN 


Chamamos de procedimento qualquer sequência de ações 
que vise atingir determinado objetivo. Quando estas ações 
apresentam um fim, ou seja, representam ações finitas, damos 
a este procedimento o nome particular de algoritmo. 

Na verdade, um programa é uma sequência de comandos 
(ações) e, por isso, uma representação de um algoritmo. Da 
mesma forma, o que fizemos para descrever a troca de um 
pneu também é um algoritmo. Portanto, ao escrever um pro- 
grama, é importante que o seu algoritmo esteja correto. Em 
outras palavras, um programa só estará correto se o seu algo- 
ritmo estiver correto, 

Na descrição da troca do pneu utilizamos a técnica conhe- 
cida pelo nome de Top-Down (de cima para baixo), que sig- 
nifica desenvolver uma idéia partindo de seu conceito mais am- 
plo (“alto”) até conceitos mais específicos (“baixo”). 

Repare como procedemos para fazer a troca do pneu. Des- 
crevemos alguns passos básicos, e os que não estavam bem de- 
senvolvidos foram sendo desmembrados até chegarmos ao al- 
goritmo final. Já no cálculo do MDC foi mais simples e, na 
verdade, usamos o método conhecido pelo nome de “Algonit- 
mo de Euclides”. 

Com tudo isso podemos concluir: o sucesso ou não de um 
programa irá depender do algoritmo que irá representar: se o 
algoritmo estiver correto, então o programa estará correto. 
Outro ponto importante é que os algoritmos gerados por esta 
técnica são estruturados, originando programas também estru- 
turados. Portanto, a técnica de Top-Down é uma boa ferra- 
menta para a aplicação da Programação Estruturada (veja 
MICRO SISTEMAS nº 20, pág. 10). E 
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Estratégia: a palavra-chave para aprisionar as peças inimigas 
e vencer o jogo no seu micro da linha Sinclair. 





Flip: capture o adversário 


lip (palavra inglesa que signifi- 
ca algo como virar ao reverso), 
também conhecido como 
Othello ou Einstein — nomes um tanto 
sisudos para ele —, é um jogo para ser 
disputado por duas pessoas. Foi desen- 
volvido em um TK-85 com 16 Kb de 
memória. 





Flip é , basicamente, um jogo de es- 
tratégia, onde a sorte não é o prepon- 
derante. Os jogadores têm como obje- 
tivo chegar ao final da partida com um 
número de peças superior ao de seu 
adversário, e isso é conseguido através 
de posicionamentos adequados que 
criam armadilhas e defesas. As regras 
básicas são simples, mas permitem si- 
tuações interessantíssimas, onde um 
raciocínio bem elaborado será fator de 
supremacia no desenvolver da partida. 


AS REGRAS DO JOGO 


O jogo tem início com a tela apre- 
sentada na figura 1. Então, o jogador 
que começa o jogo deverá colocar uma 
peça sua de forma a aprisionar uma ou 
mais peças adversárias, as quais passa- 
rão a ser suas. 


Esta captura de peças é feita colo- 
cando-se uma peça de tal forma que as 
peças adversárias fiquem limitadas por 
duas peças suas. A captura pode ser 
feita em qualquer direção — horizon- 
tal, vertical e, inclusive, nas diagonais. 
É possível com uma peça apenas, fazer 
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ABUCIOsE E GH 

















Jo uPunr— 
DJS su nr— 





AB CHUTE VEAG 
Figura 1 


capturas em mais de uma direção. Não 
podem existir espaços vazios ou peças 
suas entre as peças a serem capturadas. 

Toda jogada deverá capturar pelo 
menos uma peça inimiga. Uma peça 
colocada numa posição que não apri- 
sione peça adversária será considerada 
uma jogada inválida. Quando isso 
ocorre, O jogador não perde a vez; ele 
terá o direito de jogar novamente, des- 
ta vez numa posição válida. 

Vejamos, então, alguns exemplos de 
jogadas válidas e inválidas. Considere o 
tabuleiro mostrado a seguir como um 
determinado momento de uma partida. 
(Veja figura 2). 

Supondo que seja a vez da peça py 
jogar, seriam: 


ABCDEFGMH 





Jo u pu n— 
JO U Bu n— 





ABCDEFGMH 
Figura 2 


— jogadas válidas: 
e Di — captura a peça em D2 
e G2 — captura as peças em DS, E4, 
F3e G3 
e H3 — captura as peçasem F3 e G3 
e E7 — captura as peças em E4, ES e 


E6 
— jogadas inválidas: 
e E8 — existe uma casa vazia em E7 
e F7 — não existe uma peça sua em 
C4 para fechar a diagonal 
e BS — existe uma casa vazia em FS 
Após RUN e NEW LINE, aparecerá 
na tela o tabuleiro vazio e a pergunta 
NOME DOS JOGADORES?. A ordem 
de entrada dos nomes decidirá quem 
começa o jogo. Mas o começo não é 
decisivo; ambos têm iguais chances de 
ganhar. 
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Em seguida, o coloca as 
peças na posição inicial (conforme foi 
visto na figura 1) e indica de quem é a 
vez. 
As jogadas deverão ser dadas indi- 
cando-se a posição que a peça irá ocu- 
par no tabuleiro. Esta posição é dada 
pelas letras e números que estão em 
volta do tabuleiro, formando as coor- 
denadas da casa a ser ocupada (do mes- 
mo modo como é indicado na Batalha 
Naval). Você deve digitar primeiro a 
letra, Raros o número e em seguida 
NEW . Por exemplo: C 4 NEW 
LINE. Feita a capo o computador se 
encarrega de fazer as capturas. Termi- 
nada uma jogada, o número de peças 
de cada jogador é atualizado e aparece 
o nome do próximo a jogar. 

Caso um jogador esteja impossibili- 
tado de jogar (ou seja, quando não 
existe lugar onde ele possa capturar pe- 


lo menos uma adversária), ele de- 
verá digitar O e NEW LINE, passando a 
vez para o outro jogador. 


No final da partida aparecerá o no- 
me do vencedor e os totais de peças de 
cada um. 


A linha de eg spo 510, que con- 
tém a instrução SLOW, permite a vi- 








2 REM ** PLIP ** 
4 REM ** HONORIO LISBOA NETO- 
JUN/83 ** 
6 FAST 
10 LET C$="7" 
20 FOR N=2 TO 14 STEP 4 
30 FOR M=2 TO 14 STEP 4 
40 PRINT AT N,M;C$;AT N+1,M;C$ 
FAT N+2,M+2,C$;AT N+3,M+2;C 
$ 
50 NEXT M 
60 NEXT N 
70 FOR N=1 TO 18 
80 PRINT AT 1,N;"N";AT 18,N;"H 
n 








































90 NEXT N 

100 FOR M=2 TO 18 

110 PRINT AT M,1;"";AT M,18;"H 
" 


120 NEXT M 

130 FOR M=2 TO 16 STEP 2 

140 PRINT AT 0,M;CHR$ (38+(M-2) 
/2);AT 19,M;CHR$ (38+(M-2)/ 
2) 

150 PRINT AT M,0;CHR$ (29+(M-2) 
/2):AT M, 19;CHR$ (29+(M-2) / 
2) 

160 NEXT M 

180 DIM V(2) 

190 DIM T(2) 

200 DIM S$(4,2) 

210 DIM J$(2,10) 

220 DIM M(8,8) 

230 PRINT AT 21,0; "NOME DOS JOG 
ADORES?" 

240 FOR I=1 TO 2 

250 INPUT J$(I) 

260 IF J$(1,10)<>" " THEN GOTO 
970 

270 NEXT I 

280 LET S$(1)="m) 

290 LET S$(2)="[m7 

300 LET S$(3)="F' 

310 LET S$(4)="al" 

320 LET P=0 

330 LET V(1)=1 

LET V(2)=2 
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sualização das capturas à medida em 
que são feitas. Se depois de algumas 
partidas você já tiver assimilado o me» 
canismo das capturas e achar que o 
computador está muito lento, esta li- 


nha pode sér suprimida; o computador 
passará então a operar em F. (linha 
6) 


Para finalizar, algumas dicas para se 
obter melhor posicionamento durante 
as partidas: 

— evite colocar peças nas linhas 2 e 7, 
e nas colunas Be G; 

— procure colocar suas peças nas mar- 
gens e principalmente nos cantos do 
tabuleiro, pois um canto nunca terá 
sua peça capturada. 


DIGITAÇÃO DO PROGRAMA 


Antes de digitar o programa Flip, 
observe que na linha: 


10 — os símbolos utilizados são 
dois GRAPHICS SHIFT H se- 
guidos; 

80 — os símbolos são GRAPHICS 
SHIFT SPACE; 

110 — os símbolos são GRAPHICS 
SHIFT SPACE; 

260 — existe um espaço em branco 
dentro das aspas; 


350 LET I=2 
360 LET X=4 
370 LET Y=4 
380 GOSUB 1020 
390 LET X=5 
400 LET Y=5 
410 GOSUB 1020 
420 LET I=1 
430 LET Y=4 
440 GOSUB 1020 
450 LET X=4 
460 LET Y=5 
470 GOSUB 1020 


480 PRINT AT 9,22;J$(1);AT 10,2 
2;S$(1);AT 13,22;9$(2) AT 1 
4,22;58(3) . 

490 PRINT AT 15,2258$(4);" ";7( 
2);" ";AT 11,22:8$(2)3" "57 
(lg 

500 IF T(1)+T(2)=64 OR NOT T(1) 
OR NOT T(2) THEN GOTO 940 

510 SLOW 

520 PRINT AT 21,0;"AGORA E VOCE 

"538 (1) 

530 INPUT L$ 

540 IF L$="0" THEN GOTO 910 

550 IF LEN L$<>2 THEN GOTO 530 

560 LET C=CODE L$(1)-37 

570 LET L=CODE L$(2)-28 

580 IF L>8 OR L<l OR C>8 OR C<l 
THEN GOTO 870 

590 IF M(L,C)>0 THEN GOTO 870 

600 LET X=L 

610 LET Y=C 

620 GOSUB 1020 

630 FOR D=1 TO 8 

640 LET DX=(D=4)+ (D=6)+(D=5)-(D 
=8) -(D=1)-(D=2) 

650 LET DY=(D=2)+(D=3)+(D=4)-(D 
=6) = (D=7) - (D=8) 

660 LET X=L 

670 LET Y=C 

680 LET X=X+DX 

690 LET Y=Y+DY 

700 IF X=0 OR X=9 OR Y=0 OR Y=9 
THEN GOTO 790 


280 — os símbolos usados são GRA- 
PHICS SHIFT 3 e GRAPHICS 
SHIFT 4 seguidos; 

os símbolos usados são GRA- 
PHICS SHIFT 2 e GRAPHICS 
SHIFT 1 seguidos; 

os símbolos usados são GRA- 
PHICS SHIFT E e GRAPHICS 
SHIFT R seguidos; 

os símbolos usados são GRA- 
PHICS SHIFT W e GRAPHICS 
SHIFT Q seguidos; 

existe um espaço em branco 
dentro das aspas que apare- 
cem quatro vezes nesta linha; 
existem dois espaços em bran- 
co dentro das aspas; 

os símbolos usados são dois 
cd SHIFT H segui- 

os; 

existem 28 espaços em bran- 
co dentro das aspas dessa linha. 


290 — 


300 — 


310 — 


490 — 


850 — 


990 — 
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há cinco anos na área de obras hidráulica em 
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senvolve estudos de engenharia e programas 
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710 IF M(X,Y)=0 THEN GOTO 790 

720 IF M(X,Y)<>V(I) THEN GOTO 6 
80 

730 LET X=K-DX 

740 LET Y=Y-DY 

750 IF X=L AND Y=C THEN GOTO 79 
º 

760 LET P=1 

770 GOSUB 1020 

780 GOTO 730 

790 NEXT D 

800 IF P THEN GOTO 910 

810 LET M(L,C)=0 

820 LET T(I)=T(I)-1 

830 LET R=C+L-INT ((C+L)/2)*2 

840 LET C$=" " 

850 IF NOT R THEN LET C$="T7" 

860 PRINT AT 2*L,2%C;C$;AT 2*L+ 
1,2*C;C$ 

870 PRINT AT 21,0; "JOGADA INVAL 
IDA ";J$(I) 

880 PAUSE 180 

900 GOTO 520 

910 LET P=0 

920 LET I=(1=2)+2*(I=1) 

930 GOTO 490 


940 LET I=(T(1)>T(2))+2*(T(1)<T 
(2)) 

950 PRINT AT 21,0; "PARABENS ";J 
$(1);", VOCE GANHOU" 

960 STOP 

970 PRINT AT 21,0;"NOME COM 9 L 
ETRAS NO MAXIMO." 

980 PAUSE 300 

990 PRINT AT 21,05" | 


1010 GoTo 250 

1020 LET M(X;Y)=V(I) 

1030 LET T(I)=T(I)+1 

1040 LET IN=(1=2)+2*(I=1) 

1050 LET T(IN)=T(IN)-P 

1060 IF I=2 THEN LET 1=3 

1070 PRINT AT 2*X,2*Y;S$(I);AT 2 
*X+1,2*Y;5$ (I+1) 

1080 IF 1=3 THEN LET I=2 

1090 RETURN 














JR Sysdata 








JR, micro fabricado pela Sys- 

data Eletrônica Ltda., de São 

Paulo, é um computador bem 
mais potente e versátil do que seu mo- 
desto design possa sugerir a um obser- 
vador menos atento. 

Tendo seu software baseado no TRS- 
80 Model III, o JR vem com uma série de 
incrementos originais em termos de mer- 
cado nacional, entre os quais destaca-se 
o uso de cartuchos de programas que 
podem substituir a ROM do sistema por 
outros  compiladores/interpretadores, 
sem a necessidade de se ter uma unida- 
de de disquete. 

Externamente, seu aspecto é de um 
micro pessoal de porte discreto, com te- 
clas pequenas e achatadas e com um pre- 
ço intermediário no disputado merca- 
do dos pessoais. 


HARDWARE 


O JR tem como UCP o Z80 traba- 
lhando com um clock de 1,78 MHz, 
que pode ser elevado para 3,56 MHz 
através de acessório adquirido opcio- 
nalmente. 

Sua memória compreende 14 Kb de 
ROM e 16 Kb de RAM, esta expansível 
até 48 Kb na versão básica e 62 Kb na 
versão disco. Esta expansão não exige 






















o uso de placas extemas ou internas, 
sendo feita através da simples substitui- 
ção do chip de 16 Kb RAM por outro. 

Como novidade, o JR tem na sua 
UCP um soquete para 2 Kb de memória 
ROM ou EPROM. Nele podem ser uti- 
lizados um chip JR Extended BASIC 
ou um chip para auto-start de programas 
aplicativos em cartuchos, ambos comer- 
cializados pela Sysdata, bem como uma 
memória EPROM gravada pelo usuário. 

Seu teclado tem feedback táctil, com 
contatos de prata/irídio e teclas simila- 
res às de uma calculadora, porém maio- 
res e com um posicionamento comum 
aos demais micros. 

O JR tem duas saídas para vídeo: 
uma RF para ser usada com TVs comer- 
ciais, e outra composta, que tanto pode 
ser ligada a uma TV comum quanto a 
um monitor de vídeo profissional. Seu 
display é de 16 linhas por 64 colunas, 
ou 16x32 com caracteres expandidos, 
compreendendo uma resolução gráfica 
de 128x48 pontos. O vídeo pode ser 
usado ainda em modo reverso (letras 
pretas em fundo branco) com comando 
em software. 

O Gerador de caracteres do JR é to- 
do baseado numa EPROM de 4 Kb e 
tem 96 caracteres disponíveis, ainda 
não implementados, que podem permi- 
tir, por exemplo, a inserção de todos os 
caracteres APL ou outros caracteres à 
escolha do usuário. 

Em sua configuração básica, o JR 
vem com uma interface para gravador 
cassete, podendo o usuário utilizar mais 
uma interface (esta opcional) junto com 
a primeira. O circuito de leitura de fitas 
em cassete do JR é de alta confiabili- 
dade, gravando em velocidade de 500 
BPS e ele vem com um comutador ma- 
nual para controle remoto do gravador. 

O micro traz uma particularidade 
muito interessante, que são os cartuchos 
de programas. Em sua configuração bá- 
sica, o JR tem uma saída para o uso de 


cartuchos de programas, acoplada a um 
mecanismo que possibilita o desligamen- 
to da memória ROM do JR quando este 
estiver com um cartucho, Desta forma o 
micro fica controlado pelo conteúdo do 
cartucho, que pode conter um compila- 
dor de outra linguagem, que normal- 
mente teria que ser carregado a partir 
de um disquete, com um custo mais ele- 
vado. 

Os cartuchos podem ter também pro- 
gramas aplicativos maiores, rodando 
com a ROM do JR. Nestes casos, eles 
apresentam vantagens como a rapidez 
no carregamento do programa, a não 
ocupação de espaço de memória pelo 
mesmo e a segurança de não perder o 
programa por conta do desligamento da 
máquina. : 

Além da saída para cartucho, o JR 
conta com um conector de 50 pinos ba- 
nhados em ouro para expansão externa. 


SOFTWARE 


A linguagem utilizada pelo JR é o 
BASIC Nível II, cujo Interpretador está 
residente em 12 Kb de memória ROM. 
Todo o software compatível com os mi- 
cros TRS-80 Ie III roda no JR, que terá 
ainda, segundo a Sysdata, compiladores 
de LISP, Pascal, FORTH e APL, além 
de um Monitor de Assembler Z80, todos 
em cartuchos e em disquetes. 

O usuário de um JR pode ampliar seu 
BASIC colocando um chip JR Extended 
BASIC, que a Sysdata oferece opcional- 
mente. Este chip acrescenta os seguintes 
recursos ao JR: 

— Os comandos INPUTO, LINE INPUT, 
LINE INPUTO, & H, &0, DEFFN, 
DEFUSR, INSTR, MERGE, MERGE* 
LSET(X,Y X',Y'Z) e B ON/OFF, para 
ligar ou desligar o JR Extended Basic 
através de software; 

— Os comandos GOTO, GOSUB e RES- 
TORE podem ter como argumento va- 
riáveis ou expressões. Ex.: GOSUB A *3; 
— Implementa a auto-repetição de te- 
clas; 

— Aciona o bip a cada tecla pressionada; 
— Toma cursor programável; 

— Implementa letras minúsculas. 

O JR está à venda nas principais lo- 
jas especializadas, ao preço médio de 
Cr$ 390 mil em sua configuração bási- 
ca, e o endereço de seu fabricante, a 
Sysdata Eletrônica Ltda., é na Rua Jor- 
ge Duprat Figueiredo 647, Vila Santa 
Catarina, São Paulo, SP, CEP 04361. m 

e 
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Vensagem 






Algumas falhas importantes na revisão do programa PARA O SEU PROBLEMA, 
RENUM, da matéria Renumere seus programas em BÁSIC, NÓS TEMOS A SOL UÇÃ o! 


MS nº 20, maio/83, págs. 70 a 81, tomaram o programa 
impraticável. As correções são as seguintes: 


e passo 110: 40E6H, ao invés de 40EGH; OUTRAS MARCAS. 
e passo 520: FD4B, ao invés de FD48; e JR. DA SYSDATA 
e passo 750: 3AFA4O, ao invés de 34F440; * APPLY 300 
e passo 810: FD8B, ao invés de FD88; à 
e passo 3850: foi omitido. É o seguinte: , licativos * Utilitários 
FF91 18E8 3850 JR JACHG ricos* Acessórios 
e passo 3839: foi numerado incorretamente. Na verdade, dp REeontos 

é o passo 3890. E: 
e passos 3750 a 3920: estão com os endereços errados. Os 

corretos são: SCHUMEC 



























Profissional-Científico 
3750 FF87 3810 FF8D 3870 M 101/85 
3760 FF88 3820 FFSE 3880 FF95 e 9 fragil (8 Bits) c/ 64 Kb 
3770 FF89 3830 FF8F 3890 FF97 as 
3780 FF8A 3840 FF90 3900 FF98 * CPU 8088 (16 Bits) c/ 256 Kb 
3790 FF8B 3850 FF91 3910 FF9B de RAM pi » 
3800 3860  FF93 3920 Até 4 Discos Rgido: DIGITUS 





No número 22, à pág. 47, o programa Controle de Esto- Sistema Multiusuário ME Profissiona 1 






que veio com um pequeno erro na linha 80. Logo após o Base RES: Basic * Compatível c/ o TRS-80 
número 4,799, o caráter $ saiu no lugar de dois pontos (:), Avançado, CPM/DOS ma Modular 


que seria o correto. e Assembler, 
E no número 23, no programa de adventure Aventuras . 

| . 50, a list icad i 
na Selva, à pág. SO, a listagem saiu publicada sem a linha LHAU ENGENHARIA LTDA. 


420, que é a seguinte: Praça Tiradentes, 10 s/402 


420 IF NOT CODE B$(2) THEN GOTO 56 dv ri aii 


A maneira prática de planejar, acompanhar e revisar a operação de 
sua empresa é através do uso do BUSINESS-CALC. 


O BUSINESS-CALC é um produto que permite ao empresário en- 
contrar soluções rápidas para seu problema de processamento 
de dados; com flexibilidade e simplicidade; com baixo custo; total 
domínio do usuário sobre o processo de cálculo, prescindindo-se 
de qualquer conhecimento específico de computador e processa- 
mento de dados. 


O que é o BUSINESS-CALC? É um produto composto de um soft- 
ware e uma documentação. 


SOFTWARE: Matriz eletrônica de 254 linhas e 78 colunas progra- 
múáveis diretamente pelo usuário, MATRIZ BUSINESS-CALC. 


REQUISITOS DO COMPUTADOR 
Sistema Operacional: SOM ou CPM 
Memória minima: 32K 


| MUSINESS-CALC UML ARQUIVO: FLUXOE 















' 4 . 
MATRIZ DE FLUXO DE CAIXA 
enesa: YOVAS 8/4 
[o mto 





temana | Tremana É somiho 5 semana à 
RC E] 
ER 





E TutRdaS DO 
FIMANCIARENTOS 
n SALDO MES ANTERIOR 


15 
16 seidos! FORNECEDORES TS.S0NL 234.0BIL 100.00) 29.00) 
1 MUGEIS 23.000 3.00 30.00) 100.00) 
“u SALMRIOS K2M0IC 12.00 18.00) 15.00) 
19 SALDO DA SEMANA 39.50 -ipo.00 30. 215.08 
28 SALDO ACURULADO ans 129.90 Is9.30 35.50 







COMPUTEL - COMPUTADORES E 

TELECOMUNICAÇÕES LTDA. 
AV. RIO BRANCO, 45/811 - RIO DE JANEIRO - 20090 
TEL.: 283-1814 


computel - computel - computel -computel - computel - computel - computel 
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Baseado na leitura ótica de barras codificadas, esse sistema oferece 
grande velocidade e confiabilidade no controle de mercadorias. 





ls 


Leitor ótico 


maginemos um supermercado 

ou uma grande loja, com diver- 

sos departamentos, dezenas (ou 
até centenas) de vendedores e milhares 
de produtos diferentes. Dentro desse 
quadro, nao é difícil visualizar a dificul- 
dade de se controlar tudo isso (vendas, 
estoque, cálculo de comissões etc.), so- 
bretudo quando se consideram fatores 
críticos, tais como rapidez e confiabili- 
dade. Os controles tradicionais, mesmo 
computadorizados, revelam-se relativa- 
mente lentos (pela burocracia que re- 
querem) e sujeitos a erros (em virtude 
das transcrições que envolvem, desde o 
preenchimento de planilhas, até a entra- 
da de dados via teclado). 

Para contornar esse problema, foi de- 
senvolvido nos Estados Unidos, no iní- 
cio dos anos 70, um processo que permi- 
tiu rerlizar todos esses controles a partir 
de uma etiqueta codificada, afixada no 
próprio produto: o sistema de aquisição 
de dados por código de barras. Com 
isso, conseguiu-se aumentar substancial- 
mente tanto a velocidade (pois é huma- 
namente impossível teclar manualmente 
informações de 5 a 12 caracteres na ra- 
pidez de uma simples passagem de leito- 
ra ótica sobre uma etiqueta de 3 a 4 cm 
de comprimento) quanto a precisão da 
entrada de dados, uma vez que as barras 
de controle, por serem embutidas nos 
códigos, tornam virtualmente impossível 
o reconhecimento de um dado errôneo 
pelo computador. 
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TIPOS DE CÓDIGOS 


Da mesma maneira como o famoso 
Código Morse da telegrafia utiliza pon- 
tos e traços para representar caracteres 
alfanuméricos, o código de barras faz 
uso de pequenas barras espaçadas para 
representar dígitos e letras. 

O princípio em que se baseia a leitura 
dos códigos de barras é a reflexão da luz 
nos espaços claros e sua absorção nas 
barrás escuras. Quando o sensor ótico 
passa pelo código, ele deteta as diferen- 
o de intensidade da luz absorvida nas 

arras e refletida nos espaços, modulan- 
do, assim, um sinal elétrico que será 
posteriormente decodificado pelo com- 
putador. 


Esses códigos são extremamente di- 


versificados entre si, de acordo com a 
aplicação, mas conservam todos a carac- 
terística essencial de serem reconhecí- 
veis por um instrumento de leitura 
ótica. Um dos códigos mais conhecidos 
é o UPC (Universal Product Code), 
introduzido nos EUA em 1973 nos pro- 
dutos de supermercados. Desde então 
outros códigos surgiram, como Código 
39, o Código 2 de 5, o Código Hewlett- 
Packard (HP) e o Código Binário, entre 
outros, e o sistema, inicialmente criado 
para operar com equipamentos de gran- 
de porte, passou a ser utilizado também 
com microcomputadores. Alguns desses 
códigos são mostrados na figura 1. 


O sistema de 
código 
de barras 


Alwin Wilhelm Elbern 


GO 


Código UPC 


paga 


Código 39 


JN 


Código HP 


173456 LOGITEC 


Código Binário (LOGITEC) 





Figura 1 — Exemplos de códigos de barras 


mais comuns. 


Como exemplo, para um melhor en- 
tendimento da codificação por barras, 
analisemos o código denominado 2 de 5. 
Neste, cada dígito é representado por 
duas barras largas e três estreitas, num 
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total de 5 (daí o seu nome), sendo que 
os espaços entre as barras — no caso 
específico deste código — não contêm 
nenhuma informação. As barras largas 
são três vezes as estreitas e os espaços 
são, pelo menos, da largura das barras 
estreitas. 

Na figura 2, estão representados os 
códigos de barras para os números 1, 2 e 
3, e para o número 123, na formação do 
código 2 de 5. Como podemos observar, 
o código completo é precedido por uma 
“guarda” esquerda e uma “guarda” di- 
reita. Essas guardas são as barras de re- 
conhecimento, que permitem identificar 
o início e o fim da informação, bem 
como garantir a bidirecionalidade da lei- 
tura, fazendo com que uma etiqueta 
codificada possa ser lida da esquerda pa- 
ra a direita e vice-versa. 

No exemplo da figura 2, o código do 
número 123 é construído da esquerda 
para a direita pela adição dos códigos do 
número 1, representado por uma barra 
larga seguida de três barras estreitas e 
outra larga. Depois desse, vem o núme- 
ro 2, formado por uma barra estreita, 
uma larga, duas estreitas e outra larga. 
Assim, pela justaposição dos códigos 
individuais, é formado o código comple- 
to. De um modo geral, se considerarmos 
a barra larga como sendo o bit 1 e a es- 
treita o bit O, este código obedece à for- 
mação descrita na figura 3. 

Outro código que merece destaque, 
por ser produzido no Brasil, é o Código 
Logitec, desenvolvido para uso em mi- 
crocomputador pela empresa gaúcha do 
mesmo nome. Trata-se de um código 
binário com um número máximo de seis 
dígitos, que pode ser impresso em eti- 
quetas autoadesivas em formulário con- 
tínuo, de acordo com a numeração dese- 
jada. Este código, também bidirecional, 
é auto-checável, não requerendo dígitos 
adicionais de controle. 


LEITURA E RECONHECIMENTO 
DOS CÓDIGOS 


Os dispositivos de leitura de códigos 
de barras são geralmente constituídos 
de uma fonte de luz infravermelha diri- 
gida sobre o código, um foto diodo que 
deteta variações da luz refletida e uma 
interface para a configuração dos sinais 
elétricos de acordo com o computador 
utilizado. 

Em geral, o espaçamento entre os 
elementos de código, suas espessuras, 
bem como o contraste da impressão na 
etiqueta são os elementos que definem 
os dispositivos de leitura dos códigos. 
Assim, por exemplo, a densidade das 
barras na etiqueta utilizada determina o 
tipo de leitor ótico que se vai usar. 
Quanto mais densa a etiqueta, mais ca- 
racteres por unidade de comprimento 
poderão ser utilizados, mas, consequen- 
temente, maior será a precisão necessá- 
na para decodificá-los. 
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CODIGO £ DE 5-Exemplo 


HI Es 
Codigos 


Individuais 


2.3 


quordo 4 quordo 
esquerdo direito 


Codigo Completo 





TE 2 — Formação do código de barras 2 
de 5. 











DIGITO VALOR DOS BITS 
1 2 4 7 
0 E E L L E 
1 L E E E L 
2 E L E E L 
3 L L E E E 
4 E E L E L 
5 L E L E E 
6 E «Lt L E E 
7 E E E L L 
8 L E E L E 
9 E L E L E 
E 


* P = Bit da Paridade 
E = Barra Estreita 
L = Barra Larga 


Figura 3 — Valor dos bits na Pouso do có- 
digo de barras tipo 2 de 5 (SKAN-A-MATIC). 


O problema de transferir as informa- 
ções dá etiqueta codificada para o 
computador poderia, à primeira vista, 
parecer relativamente fácil, pois, em 
princípio, bastaria juntar os zeros e uns 
em bytes de 8 bits e armazená-los na 
memória para depois processá-los. A so- 
lução, no entanto, é mais complexa, 
pois o programa para decodificar esses 
códigos deve ser capaz de tratar proble- 


Converte os pulsos 
do Leitora Óptico 
em uma série de 
bits sequenciais 


Detecto o fim do 
leituro e tronsforma 
os bits em uma 
sequencia de bytes 


Verifica a validade 
do sequencio de 
bytes e testa q 
possibilidade de erro 





Figura 4 — Esquema simplificado do software 
de decodificação dos códigos de barras. 


mas, tais como variações de velocidade 
no momento da leitura, variações na 
qualidade de impressão da etiqueta, ruí- 
do da leitura ótica etc. 

Um programa de aquisição de dados 
através de código de barras, além de de- 
pender do tipo de código empregado 
e das características do computador, é 
muito complexo. Esses programas geral- 
mente seguem o esquema simplificado 
da figura 4, onde o programa leitor pro- 
duz um sinal decodificável que, em 
seguida, é armazenado, em forma de bits 
sequenciais, num buffer (memória inter- 
mediária). Com a ajuda do programa se- 
quenciador, os bits de paridade — de 
guarda e leitura, conforme o caso — são 
detetados e configurados em bits corres- 
pondentes aos dígitos lidos. 

O programa configurador verifica a 
validade dos bytes, testa erros e aceita, 
ou não, a leitura efetuada. Uma vez acei- 
ta a leitura, esta pode então ser proces- 
sada em programas utilitários — escritos 
em BASIC, por exemplo — de acordo 
com a utilização das etiquetas codifi- 


cadas. = 
es 
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putadores aplicados à automação de processos 
e aquisição de dados. 
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Siga os passos dos grandes mestres: mas ao invés de publicar um livro, armazene 
em um só programa suas melhores (ou piores!) partidas de xadrez. 





Minhas piores 
partidas de xadrez 


L.C Lobato 


que você armazene partidas deste jogo sem, no entan- 

to, ter a necessidade de recorrer a arquivos em fita 
cassete ou em disco, pois os lances são armazenados dentro do 
próprio programa, sob a forma de DATA. 

Para colocar os lances de suas partidas, basta editar o pro- 
grama, acrescentando novos comandos DATA, no lugar apro- 
priado, e depois regravá-lo. 

Este programa é muito útil para quem joga Xadrez Postal 
e necessita de toda a partida a cada lance do adversário. 


COMO FUNCIONA 


O) programa denominado Partidas de Xadrez permite 


Inicialmente são lidos os dados referentes às partidas e 
mostrados os nomes dos torneios e dos parceiros em cada tor- 
neio. Deste modo você escolhe qual partida deseja ver. Os tor- 
neios e os parceiros são numerados com os números de 1 em 
diante, e você os escolhe pelo número. 

Em seguida, o tabuleiro é desenhado na tela e você passa a 
assistir ao desenrolar da partida. Após cada lance você deve 
apertar qualquer tecla (exceto BREAK) para que o seguinte 
seja mostrado. Quando, porém, a tela ficar cheia, será necessá- 
rio um aperto de tecla adicional para apagar os lances anterio- 
res e mostrar O seguinte. 

Ao terminar a partida, aparece a palavra FIM no lugar do 
novo lance. Então, apertando qualquer tecla, o programa ter- 
mina. Querendo outra partida, execute novamente o programa. 

Você poderá armazenar partidas até o limite de memória de 
seu computador e dos índices de algumas variáveis, conforme 
veremos mais adiante. Mas caso você armazene muitas partidas, 
então acontecerá um pequeno problema: o micro demorará um 
pouco mais para localizar a partida desejada. 

Para melhor entendimento do programa, veja ainda a descri- 
ção das variáveis utilizadas e das principais linhas de comando, 
mostradas a seguir. 
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e Descrição das variáveis: 

BS%(8,8) — posição das peças no tabuleiro 

TS%(8,8) — cores das casas (branca =0 e preta =1) 
P9%(25,11) — desenho de cada peça na casa branca ou preta 
T$(5) — nome do tomeio (máximo de 6) 

N$(50) — nome do parceiro (até 51) 

PTY%(5) — número do último parceiro de cada torneio 
YMS$ — lance na notação algébrica 

VM — posição de memória do vídeo 

C1,R1 — coordenadas da posição inicial da peça 

C2,R2 — coordenadas da posição final da peça 

e Descrição das principais linhas de comando: 

30 a 90 — leitura do nome dos tomeios e dos parceiros 
120 a 130 — criação da matriz TS% 

160 a 200 — criação da matriz BS% 

210 a 470 — criação da matriz P9% 

480 a 520 — desenha a posição inicial das peças no tabuleiro 
620 a 740 — leitura e codificação dos lances 

750 a 850 — movimentação das peças 

1010 a 1100 — movimentos de roque pequeno e grande 
1110a 1140 — controle de paginação dos lances 

1210 a 1340 — seleção da partida desejada 

1500 a 1550 — lances na notação algébrica 


OBSERVAÇÕES IMPORTANTES 


As peças são desenhadas utilizando-se os caracteres gráficos 
de vídeo, códigos decimais de 128 a 191, de acordo com a ta- 
bela das linhas 220 a 470. 

A matriz BS% guarda a posição de todas as peças do tabu- 
leiro, desde o início até o final da partida, e para isso utiliza os 
índices da matriz P9%. Assim, se BS%(1,1)=20, então na li- 
nha 1, coluna 1, existe uma torre branca em casa preta; e 
assim por diante. 
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O desenho das peças é tal que, em qualquer situação, a cor 
do centro da peça define se ela é branca ou preta. As peças são 
desenhadas utilizando-se duas linhas e 6 colunas. Dessa forma, 
o tabuleiro ocupará 16 linhas por 48 colunas, ficando o resto 
da tela para o nome do adversário e os lances. 

Caso você não queira apertar teclas para passar de um lance 
para o seguinte, basta colocar o comando RETURN na linha 
1180. 

Para cada torneio, coloque um comando DATA com a pa- 
lavra INICIO e, em seguida, o nome do torneio (linhas 1500 e 
1530). Para cada parceiro, coloque um comando DATA com o 
respectivo nome e, logo a seguir, comandos DATA com os lan- 
ces, terminando a partida com a palavra FIM (linhas 1510, 
1520 e 1540). No final de todas as partidas, coloque um co- 
mando DATA com a palavra FIM (linha 1550). 

Não há limite de lances por partida e o número máximo de 
tomeios e parceiros é dado pelos índices das variáveis TS, N$ e 
PT%, dimensionados na linha 10 do programa. 

Finalmente, se qualquer lance for codificado de forma erra- 
da, sairá o lance e a mensagem ERRO DE DADO, devendo o 
programa ser interrompido por BREAK. Qualquer tentativa de 
continuar ocasionará erro. 

Uma observação: as partidas exemplificadas na listagem são 
reais e não foram as minhas piores partidas... 

O programa Partidas de Xadrez foi baseado no programa 
Chess Tutor, publicado na 80-Microcomputing, dez./81. 





Luiz Carlos Lobato Lobo de Medeiros é Engenheiro Eletrônico forma- 
do pelo ITA em 1968. Começou a trabalhar em processamento de 
dados em 69, nas áreas de Produção e Suporte Técnico em equipamen- 
tos IBM, e atualmente é assessor do diretor de Recursos Humanos da 
Telebrás para assuntos de processamento de dados, em Brasília, cargo 
que tem como objetivo estimular a utilização de microcomputadores 
entre os empregados da diretoria. 





Ártsul 


o modem da integração. 





ntos Eletrônicos Ltda. 


Fone (031) 226-5722 + 
Fone (041) 232-1814 - tIx (041) 5406 * Porto Alegre: Av. 


MICRO SISTEMAS, setembro/83 





Tire seu micro 
do isolamento 


Agora que você já adquiriu seu micro e está tirando 
partido de tudo o que ele pode fazer, saiba que isso é apenas 
o início, 

maca seque um modem UP 1200/II Parks ao seu 
aparel 
microcomputador ao de um amigo ou banco de dados, 
através da linha telefônica, ampliando 
consideravelmente seu uso, seja para o trabalho ou lazer. 


De maneira rápida e eficiente, fácil como dar 
um telefonema, você poderá copiar 
programas, aumentar seus dados de 
memória, receber e transmitir as mais 
variadas informações, e até jogar xadrez à 
distância. De operação simples, o UP 1200/1I tem baixo custo de 
funcionamento e manutenção e pode ser utilizado em linhas privativas ou discadas. 
Dê vida nova ao seu micro. Tire-o do isolamento com UP 1200/11 Parks: 






Parks - 

São Paulo: Rua Correa ae, 51 - Fone (011) 549-4360 - tIx (011) 23141 * Belo Horizonte: Av. Afonso Pena, 941 
: CLRN 103 - Bloco A - io 37 - Fone (061) 255-0538 e Curitiba: Rua Carlos de Carvalho, 1766 

e raná, 2335 - Fone (0512) 42.5500 - tix (051) 1043 e Recife: Av. Conselheiro 

Aguiar, 5025 - conj. 104 - Fones (081) 325-21 23 e 325-2307 / Av. 

Branco, 245 - 8/2102 - fone: (021) 220-2149 + Salvador: Av. Amaralina, 818 - sala 102 - 





Partidas de Xadrez 


10 DEFINTA-Z:DIMBSZ (8,8), TS%(B, 8)» P9%(25, 11), TSC(5), N$( 
30) ,PTX(5S) 

20 CLS:PRINTTAB (20) "PARTIDAS DE XADREZ": PRINT:PRINT 

25 * ROTINA DE LEITURA DOS TORNEIOS E PARCEIROS 

30 READAS: IFAS< >" INICIO"THENSOELSET I=0:NI=0 

40 READTS (TI) :READNS (NI) 

50 READAS: IFAS<>"FIM"THENSOELSEREADAS: IFA$="F IM"THENPT 
K(TI)=NI: GOSUBÍ 200: GOTOBO: ELSEIFA$S=" INICIO "THENPTY( 
TI)=NISTI=TI+1:NI=NI+1:GOTO40: ELSENI=NI+1:NS (NI) =A$: 
GoT0so 

80 INPUT"Informe numero do torneio e numero do parceiro 
"sTi.Ni 

90 IFTI=OTHENENDELSECLS:RESTORE: Ti=Ti-1:N1=Ni-1 

110 * DEFINICAO DAS CORES DAS CASAS - CT=0 BRANCA, CT=1 

PRETA 

CT=1:FORI=1TO8:FORJ=1TOB: TS%(1,J)=CT:BT=CT: IFCT=1TH 

ENCT=CT-1ELSECT=CT+1 

130 NEXTJ:CT=BT:NEXTI 

140 MV=0:P=0:CP=132 

* DEFINICAD DA POSICAO INICIAL 

160 FORI=1TOB:FORJ=1TOB:READESY (1. J):NEXTJ, I 

170 DATAZO,9.22,11.24,10,21,8,7,19,7,19,7,19.7,19 

180 DATAZS,0,25,0,25,0,25,0,0,25,0,25,0,25,0,25 

190 DATAZS,0,25,0,25.0,25,0,0.25.0,25.0,25,0,25 

DATALS, 1, 13.1,13,1,13,1,2,15,4,17,6, 16,3, 14 

* DESENHO DAS PECAS 

210 FORI=0TOZ5: FORJ=0TO11:READP9% (1, J):NEXTI,I 

220 DATA191,191,191,191,191.191.191,191,191,191,191,191 

:" CASA BRANCA VAZIA 

DATA191,191,143,175,191,191,191.183.176,178.191,191 

:”PEAO PRETO CASA BRANCA 

240 DATAL91,147,135,139,163,191,191,177.176,176,178,191 

3" TORRE PRETA CASA BRANCA 
250 DATA191,143,131.131,131.191,191,191,177,176.184,191 
7" CAVALO PRETO CASA BRANCA 

260 DATAL91,159,131,139.191,191.191,183,176,.178,191,191 

:* BISPO PRETO CASA BRANCA 

DATA191,154,129,139,186,191,191,179.176-178,187.191 
























o, você sai do isolamento e pode interligar seu 


















Norte, 3090 - Fone (081) 2415309 » Rio de Janeiro: Av. Rio 
one (071) 249-9744 e 2476344. 
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MINHAS PIORES PARTIDAS DE XADREZ 





290 
300 
30 
320 
330 
340 
350 
360 


370 


390 


400 


410 


420 
430 


440 
450 
460 
470 


480 
490 


502 
s10 
520 
530 
540 
600 
610 
615 
620 


630 
710 
720 
730 


740 
745 
750 
760 


770 


:" DAMA PRETA CASA BRANCA 
DATALS9,143,145,155,143,191,181,176,176,176,176,191 
:ºREI PRETO CASA BRANCA 
DATAL91,191,143,175,191,191,191,183,178,178,191,191 
:*PEAO BRANCO CASA BRANCA 
DATAL91,147,167,155.163,191,191,177,179,179,178,191 
:" TORRE BRANCA CASA BRANCA 
DATAL91,143,131,179,131,191,191,191,177,179,184,191 
:º CAVALO BRANCO CASA BRANCA 
DATAS91,159,179,155.191,191,191,183,178,178,191.191 
:” BISPO BRANCO CASA BRANCA 
DATAL91,154,185,155,186,191,191,179,178,178,187,191 
:" DAMA BRANCA CASA BRANCA 

DATALS9, 143, 145,155,143,191,181,176,164,164,176,191 
:”REI BRANCO CASA BRANCA 

DATAI28, 128, 176.144,42, 128,128,136,141,141,128,128 
1º PEAO PRETO CASA PRETA 

DATAL28, 172,152,164,156,128,128,142,140,140,141,128 
:º TORRE PRETA CASA PRETA 

DATAI28, 176, 188, 140, 186128, 128,128,142,140,135,128 
:" CAVALO PRETO CASA PRETA 

DATAL28, 160,140, 164, 128, 128.128, 136,141,141,128,128 
:º BISPO PRETO CASA PRETA 

DATAIZB, 165, 134,164,133,128,128,140,141,141,132,128 
:" DAMA PRETA CASA PRETA 

DATALGO, 176, 174,164,176,128,138,143,140,142,143,128 
:"REI PRETO CASA PRETA 

DATAI2B, 128, 176, 144, 128128, 128.136, 143,141,128,128 
:”PEAO BRANCO CASA PRETA 

DATAL28, 172,184,180,156,128,128,142,143,143,141,128 
2º TORRE BRANCA CASA PRETA 

DATAL2B, 176, 188, 188, 188, 128» 128,128,142,143,135,128 
"CAVALO BRANCO CASA PRETA 


DATAL28, 160, 188, 180,128,128,128,136,143,141,128,128 
:"BISPO BRANCO CASA PRETA 

DATAL28, 165, 190, 180,133,128,128,140,143,141,132,128 
:" DAMA BRANCA CASA PRETA 

DATAL4O, 176, 174,164,176,128,138,143,143,143,143,128 
:"REI BRANCO CASA PRETA 

DATA128, 128, 128, 128,128,128,128,128,128,128,128,128 
:" CASA PRETA VAZIA > 
VM=15376: VN=0:" ROTINA DE DESENHO DO TABULEIRO 
FORI=8TOISTEP-1:FORJ=1TOS:FORK=0TOS 
POKEVM+VN+K, P9% (BS% (1,9). K) 

POKEVM+UN+K +64, POX(BS(T, D) »K+6) 

NEXTK: VN=VUN+63 NEXTI 3 VM=VM+128: VN=0: NEXTI 

VM=15376: GOSUB1110 

GOSUB 1300 

PRINTGO, "ADVERSARIO": :READAS: PRINTR64, LEFTS (AS, 15)3 
IFP=0THENMV=MV+1 

PRINTECP-4, MV3 

"LEITURA DOS LANCES 

READYMS: IFYM$="FIMTHENPR INTECP+P46, YM$; : GOSUBI 180: 
END 

PRINTECP+P+6, LEFTS (YM$, 2) +"-"+RIGHTS (YMS, 2) 5 
CI=ASC(MIDS (YM$,1,1))-64:R1=ASC (MIDS (YMS, 2, 1))-48 
C2=ASC(MIDS (YM$,3,1))-64:R2=ASC (MIDS (YMS, 4, 1))-48 
IFCI<10RCI>BORRI< LORR1>BORCZ< 10RCZ>BORRZ 10RRZ>BTHE 
NGOSUB1 1 10:60T0870 
IFESK(R1»C1)=00RBS% (Ri, C1)=25THENS7O 

* ROTINA DE MOVIMENTACAO DAS PECAS 

BS%(R2, C2)=BS%(RI»C1)+124(TS%(RZ, C2)-TS%(RLC1) EB 
SY(R1»C1)=254TS%(RI,C1) 

IFP=0ANDYM$="E161 "ANDBSZ (1, 7) =24THENESX (1,8)=0: BS% 
(1,6) =B:6OSUB1070:G0TOBSS 
IFP=0ANDYM$="E1C1 "ANDES? (1, 3) =24THENBSX (1, 1)=0: BS% 
(1,4)=8:GOSUB1010:60T0BSS 
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780 IFP=1ANDYM$="EBGS"ANDESZ (8, 7) =6THENBSZ (B, B) =0:BS% 
(B,6)=14:GOSUB1090:G0T0BSS 

790 IFP=1ANDYM$="EBCB"ANDESY (8, 3) =6THENESZ(B, 1) =0:BS% 
(8,4)=14:G0SUB1030:G0T08SS 

BO0 Ji=VM+((B-R1)+128)+((C1-1)46):]2=VM+( (B-R2)4128)+( 
(C2-1)46) :FORI=0TOS 

B10 POKEJI+I,P9X(BSA(RI,C1),1) 

B20 POKEJ1+1+64,P9% (BS (RI,C1), I+6) 

B30 POKEJ2+1, P9%(BSY(R2,C2)»1) 

B40 POKEJZ+1+64,P9% (BS% (R2.C2), I+6) 

850 NEXTI 

B55 GOSUB11B0 

B60 IFP=OTHENP=1:GOTO620: ELSEP=0: GOSUB1 110:GOTO400 

870 GOSUB1110:PRINTECP-4, "ERRO DE DADO"::GOTO1125 

1005 * GRANDE ROQUE DAS BRANCAS 

1010 FORII=0TOS:POKE16272+11, 128:POKE16336+11,128:POKE 
16284+11,P9%(24, 11) :POKEL6348+11, P9%(24, 11 +6) 

1020 POKE16290+11,P9%(B, 11) :POKEL63S4+1I,P9X(B, LI+6):P 
0KE16296+11, 128:POKE16360+11, 128: NEXTIT:RETURN 

1025 * GRANDE ROQUE DAS PRETAS 

1030 FORII=0TOS:POKE15376+11, 191:PDKE15440+11,191:POKE 
15388+1 1, P9%(6, 11) :POKE15452+11,P9% (6, 11+6) 

1040 POKE15394+11,P9%(14, 11):POKE1S45B+I1,P9%(14, I1+6) 
:POKE15400+11, 191:POKE1S464+1T, 191:NEXTIL: RETURN 

1065 * PEQUENO ROQUE DAS BRANCAS 

1070 FORII=0TOS:POKE16296+11, 128:POKE16360+I11,128:POKE 
16302+11. P9X(B, 11): POKE16366+11,P9%(B, 1I+6) 

1080 POKE16308+11,P9%(24, 11):POKE16372+11,P9%(24, 11+6) 
:POKE16314+11,191:POKE16378+1T, 191:NEXTII:RETURN 

1085 ” PEQUENO ROQUE DAS PRETAS 

1090 FORII=0TOS:POKE15400+11, 191:POKE15464+11,191:POKE 
15406+11, P9X(14, 11) :PDKE15470+11,P9X(14,11+6) 

1100 POKE15412+11,P9% (6, 11) 3POKELS476+11,P9%(b, 11+6):P 
DKE15418+11,128:POKE15482+1T, 128:NEXTII:RE TURN 

1110 CP=CP+64 

1120 IFCP<=974RETURN 

1125 GOSUBI 180 

1130 FORII=19270960STEP64:PRINTEII, STRINGS(15,32)3:NEX 
1) 


1140 CP=196:RETURN 

1180 AS=INKEY$: IFA$=""THENI IBOELSERETURN 

1200 * ROTINA DE SELECAO DA PARTIDA 

1210 K=0:J1=0:FORI=0TOTI:PRINT"TORNEIO"s1+13" "5 T$(I)s 
" PARCEIROS" 

1220 FORJ=JLTORTA (CI): PRINTK+1S" “SNSCK) 3" /052K=K+1:NEX 
TJ: PRINT: JI=PTA(I)+1:NEXTI 

1230 RETURN 

1300 RESTORE 

1305 K=0:J1=0 

1310 READAS: IFAS<>"INICIO"THENI310 

1320 IFTL>IITHENT1=]1+1:K=PT%(J1):GOTOLF1OELSEREADAS 

1330 IFN1=KTHENRETURNELSEK=K+1 

1340 READAS: IFAS<>"FIM"THEN1340ELSE1330 

1490 * COLOCAR AQUI OS LANCES NA NOTACAO ALGEBRICA 

1500 DATA INICIO. TC.1/193 

1510 DATA MARCUS VILLELA, EZE4,E7ES, G1F3, BBC6, F1C4,FBC 
5, C2C3. G8F 6. D2D4 , ESD4, CIDA, CSB4, BICI,F6E4, FIM 

1520 DATA RUBENS SANTELLO, C2C4, E7E6, D2D4, D7DS, B1C3,C7 
C5,C4DS, E6DS, D4CS. DSDA, DIAS, BEC6, C3ES, FBCS, AZA3,» 
A7A6,CIFA, EBFB, EZE4, DBAS, ASAS, COAS,» BSC7, ABA7, BZB 
4, C5B6. F4D6, FIM 

1530 DATA INICIO.VIII ZONAL 

1540 DATA FRAY JOSE, EZE4, GBF6,E4ES, F4DS, C2C4, DSB6, D2D 
4, D7D6. F2F4. 6766,C1E3,FBG7,GI1F3, DOES, F4ES, E BGB, 
F1E2,CBFS, B1DZ, FIM 

1550 DATA FIM 





CURSO PRÁTICO DE BASIC — INTENSIVO 


COM APLICAÇÕES REAIS PARA EXECUTIVOS 
E ESTUDANTES — TURMAS DE 6 ALUNOS 
APENAS 5 SEMANAS C/2 AULAS SEMANAIS 
TESBI - Rua Guilhermina, 638 - Tel.: (021) 501-3297 * 249-3166 









MICRO SISTEMAS, setembro/83 


Datalife 


Verbatim: 


PRODUZIDO NA ZONA FRANCA 
DE MANAUS SIGNIFICA: 
QUALIDADE COM 5 ANOS 

DE GARANTIA E O MELHOR 
PREÇO DO MERCADO. 


















ENTREGA IMEDIATA 
simples face/simples densidade 
128 bytes/setor, 8 polegadas 
YE) o 
simples face/dupla densidade 


DATALIFE * diskettes são produzidos com uma única ESSO 
preocupação: o armazenamento de dados sem erros Agi 
Esse comprometimento requer precisas técnicas 














FD 34-8000 Paio 
a Não setorizado - não formatado 8 polegadas 
de produção e rigoroso controle de qualidade Ta ET er rea ; 5 epoegade 
-- a e - di DD 4026 o uple ace/ dupla densidade 
“tibi diskettos eu 6 1/4 polegadas tem DD 34-4026 | 26 setores - 256 bytes/setor 8 polegadas 
certi negao 100% sem ias o. , DD 34-4001 | dupla face/dupla densidade - Não setorizado 
A diferença DATALIFE * é pura e simplesmente qualidade não formatado 8 polegadas 


Entrega a partir de setembro 1.983 





E simples face /dupla densidade 
59 
MD 525-01 5 1/4 polegadas 














MD 550-01 dupla face/dupla densidade 5 1/4 polegadas 


m embé n de cartão com 10 unidades 
Caixas plásticas opcionais 





PARA ENCOMENDAS FORA DE SÃO PAULO, 

Revendedores e Fabricantes interessados. A MEMPHIS PAGA A LIGAÇÃO. 

tel: (011) 262-5332 DISQUE (011) 800-8462 
Distribuidor: Memphis 


Indústria e Comércio Ltda. 
Av. Arnolfo de Azevedo, 108 - Pacaembu - São Paulo - Brasil 


CEP 01236 - PABX (011) 262-5577 - Telex (011) 34545 
Filial Rio: Praia do Flamengo, 66 cj: 1519 Tel: (021) 205-3849 - 225-3469 
Matriz: Av. Angélica, 35 - Sta. Cecília - São Paulo - Brasil - CEP 01227 





MICRO SISTEMAS, Ano II 





MICRO SISTEMAS completa mais um ano de vida. Como fizemos 


anteriormente, aqui está o nosso Indice, contendo 


todos os programas, artigos e reportagens que ocuparam nossas 
páginas nesse último período, isto é, do n9 13 ao nº 24. 
Consulte o Indice e realimente sua memória! 





Sistéinas 





Número 13, outubro 1982 


8 Conversão Universal de Números — 
Programa de Fábio Cavalcanti da 
Cunha para a T|-59. 

12, VisiCalc, o formulário eletrônico — Ar- 
tigo de Leo Nacellj 

18 Inteligência Artificial — Artigo de 
Antonio Costa. 

20 Livros — “Microcomputadores — Intro- 
dução à linguagem BASIC” de Roberto 
Kresch. 

22 O computador pessoal — | — Artigo de 
Renato Sabbatini sobre micros pessoais: 
surgimento, componentes e utilidades. 

28 Proteja seu programa no DGT-100 — 
Artigo de Newton Duarte Braga Júnior 
com dicas sobre a proteção de software. 

36” Lista Telefônica Automatizada — Pro- 
grama de Roberto Chan. 

36 Modularidade e tecnologia aberta: as 
propostas da Del — Entrevista com 
Luiz Carlos Gomes, diretor da Del — 
Engenharia e Computação Ltda. 

40 Informática 82: cresce o espaço dos mi- 
cros — Reportagem sobre a || Feira e o 
XV Congresso Nacional de Informática. 

44 Um programa para o pequeno investi- 

dor — Programa de Fausto Arinos de 

Almeida Barbuto. 

Métodos de Ordenação — | — Artigo de 

Roberto Chan e Hélio Lima Magalhães 

sobre as características e vantagens de 

onze SORTs — com os respectivos 
programas implementados em BASIC 

— e uma análise comparativa de todos 

eles. 

58 O impacto do micro na literatura 
técnica — Reportagem sobre a edição 
de livros e revistas sobre microcompu- 
tadores. 

60 Dupla face em disquetes simples — 
Artigo de Samuel José MacDowell. 





z 


78 





72 
76 
so 


91 


Conheça o interior do 6502 — Artigo 
de Carlos Eduardo Tarrisse da Fontou- 
ra. 

As impressoras — Artigo de Antonio 
Carlos J. F. Visconti sobre os tipos e 
características das impressoras utiliza- 
das por microcomputadores. 

O micro e o Radioamadorismo — 
Artigo de Mário Negreiros dos Anjos. 
Expansão de 2 K para TKs e NEs — Ar- 
tigo de Manuel Maria C. P. de Castello. 
Curso de Programação Sintética para a 
HP-41C/CV — Il — Continuação do 
curso de Luiz Antonio Pereira. 

Palpites (cibernéticos) para a Loto — 
Programa de Ivo Ferreira Júnior. 

Um ano de MICRO SISTEMAS. 


sistélime 





Número 14, novembro 1982 


6 


12 


28 
34 


Representação de figuras por compu- 
tador — Artigo de Luiz Antonio Perei- 
ra sobre a representação gráfica de figu- 
ras no HP-85, 

Da máquina de escrever à máquina que 
escreve — Artigo de Arnaldo Humberto 
Parisoto sobre a evolução da comunica- 
ção escrita e as múltiplas vantagens do 
uso de processadores de texto em uma 
empresa. 

Introduzindo a Lógica — Artigo de Or- 
son Voerckel Galvão. 

Cálculo de vigas contínuas na TI-59 — 
Programa de Claudio Luiz Curotto. 
Programando para crianças — Artigo de 
Liane Margarida Rockenbach Tarouco 
sobre a utilização do microcomputador 
no ensino de crianças. 

O TK82-C: micro só no tamanho. 
Métodos de Ordenação — Parte fl- 
nal do artigo de Roberto Chan e Hélio 
Lima Magalhães. 











52 
56 


72 


7 
78 
82 


ss 


92 


Vídeo-texto: começa no Brasil a socie- 
dade de informação — Reportagem so- 
bre a implantação do sistema de vídeo- 
texto da Telesp. 

O computador pessoal — Il — Parte fi- 
nal do artigo de Renato Sabbatini. 

XV Congresso Nacional de Informática 
— Cobertura do evento com a seleção 
dos principais assuntos discutidos nos 
seminários, palestras e painéis. 

H Feira Internacional de Informática — 
Apresentação dos principais lançamen- 
tos (hardware e software), na Feira pa- 
ralela ao XV Congresso Nacional de 
Informática. 

A primeira comunidade teleinformati- 
zada do Brasil — Reportagem sobre o 
Projeto Ciranda, incluindo uma entre- 
vista com o Vice-Presidente da Embra- 
tel, Luiz Sérgio Coelho Sampaio. 
Livros —“TK82-C Programação BASIC” 
da Microdigital Eletrônica Ltda. 
Micro-Dicas — Monitores x televisores 
de Paulo Saldanha, 

Curso de Programação Sintética para a 
HP-41C/CV — Ill — Continuação do 
curso de Luiz Antonio Pereira. . 
MICRO SISTEMAS, Ano | — Indice, 
contendo todas as matérias publicadas 
em MS do número 1 ao número 12. 
Imarés: soluções integradas e pronta- 
entrega — Reportagem com a loja Ima- 
rés Microcomputadores, SP. 





Número 15, dezembro 1982 


8 
14 


18 
20 


Mala direta no micro — Programa de 
Jôneson Carneiro de Azevedo. 
Linguagem de máquina no DGT-100 — 
Artigo de Newton Duarte Braga Júnior. 
Conversão — Fator Z no HP-85. 

Mais operações lógicas: NAND e XOR 
— Artigo de Orson Voerckel Galvão 


MICRO SISTEMAS, setembro/83 





25 


26 


38 


42 


62 


76 


78 


sobre os monitores do TD-200 e do 
Cobra-300. 

Livros — “LCP — Lógica de Construção 
de Programas: Um Método de Progra- 
mação Estruturada”” de Jean-Domini- 
que Warnier. 

Winchester, a evolução dos discos mag- 
néticos rígidos — Artigo de Ulrich Kuhn. 
Microdigital consolida-se na faixa dos 
pessoais — Entrevista com o Diretor da 
Microdigital, Tomas Kovari. 

H Feira Internacional de Informática — 
Conclusão à cobertura da Il Feira In- 
ternacional de Informática com a pu- 
blicação de alguns lançamentos na área 
de discos magnéticos e Impressoras. 
Integração Numérica — Dois programas 
de Hernán Campero López, um em 
FORTRAN e outro em BASIC, para 
cálculo de integrais através do Método 
Trapezoidal. 

Organização da memória da TI-59 — 
Artigo de Baker Jefferson Mass. 

LISP, a linguagem inteligente — Artigo 
de Marisa da Motta e Sandra Mary He- 
bihara. 

O micro na pecuária bovina — Artigo 
de Álvaro Luiz Marques Magalhães so- 
bre a implantação de microcomputado- 
res na agropecuária. 

Pesquisa e indústria mais próximas de- 
pois do Congresso — Continuação da 
cobertura da Il Feira Internacional de 
Informática, incluindo a mostra das 
Universidades. 

Pesquisa e desenvolvimento, além do 
eixo Rio/São Paulo — Reportagem so- 
bre a Feira Brasileira de Negócios — Fe- 
bran, realizada em setembro de 1982, 
em São Paulo. 

Curso de Programação Sintética para a 
HP-41C/CV — Final — Curso de Luiz 
Antonio Pereira. 

O monitor SOM sem segredos, no TD- 
200 e Cobra-300 — Artigo de Nilton do 
Valle Oliveira. 

Clappy: a nova realidade da Clap — Re- 
portagem com a loja Clappy, RJ. 





Número 16, janeiro 1983 


12 


15 
16 


24 
28 


Duas versões para o Jogo da Forca — 
Dois programas, um de Carlos Henri- 
que Klein para o TKB2-C e outro, de 
Nelson Luis de Carvalho Freire, para a 
HP-41C/CV. 

Equipamentos — Fenix Il. 
Conhecendo uma UCP, a 8080 da Intel 
— Artigo de Orson Voerckel Galvão. 
Descubra a senha — Programa de Luiz 
Eduardo M. C. Sutter e Flávio Henri- 
que Costa Nogueira, que implementa o 
famoso jogo Master Mind, para micros 
compatíveis com o TRS-80 Model |. 
Alguns Macetes de Programação — Ar- 
tigo de Claudio Nasajon. 

Ei, eu já sei programar! — Programas de 
Alexandre Sabbatini, de nove anos de 
idade. 


MICRO SISTEMAS, setembro/83 





42 


45 


52 


62 


e3 
64 


67 
70 
72 


78 


Corra... que o micro controla — Uma 
nova versão do programa “Aplicação 
do Computador em Análise de Atle- 
tas”, publicado em MICRO SISTEMAS 
números 3 e 4, de Arnaldo M, Mefano. 
MICRO MERCADO — Um quadro dos 
microcomputadores fabricados e co- 
mercializados no Brasil. 

Jogo do 21 — Programa de Jackson 
Tong desenvolvido num micro da LA- 
BO, em linguagem BASIC. 

De calculadora a relógio digital — Um 
programa de Carmine Montouri para a 
HP-41C. 

Livros — “A Sociedade da Informação 
como Sociedade Pós-Industrial” de 
Yoneji Masuda. 

Uma avaliação de micros nacionais — 
Artigo de Carlyle Macédo Júnior e 
Edelvicio Souza Júnior sobre os mi- 
cros D-8000, CP-500, DGT-100, Micro- 
engenho e Poly 101SS, analisados e 
comparados, em termos de processa- 
mento, com alguns dos mais famosos 
equipamentos estrangeiros. 

Rapidez e emoção na Fórmula 1 — Pro- 
grama de Jôneson Carneiro de Azevedo. 
Transforme seu DGT-100 em um ins- 
trumento musical — Artigo e programa 
de Carlyle Macêdo Júnior e Edelvicio 
Souza Júnior para obter notas musicais. 
no DGT-100 em uma ampla faixa de 
escalas, utilizando um mínimo de soft- 


ware. 

Jogo da Velha — Programa de Jacyr 
Vianna de Quadros Júnior para o 
TK82-C. 

Vença o gênio no DGT-100 — Um di- 
vertido jogo que simula o brinquedo 
Genius inclusive com efeitos sonoros, 
cedido pela Digitus. 

Uma questão de afinidades — Programa 
de Bruno Barasch, feito para a HP-41C/ 
Cv, que considera a data de nascimen- 
to de duas pessoas para determinar o 
grau de afinidade existente entre elas. 
Comande um ataque aéreo — Programa 
de Carmine Montouri para a HP-41C. 
Jogue com efeitos aleatórios — Artigo 
de Luiz Eduardo M. C. Sutter que apre- 
senta alguns modelos e macetes de pro- 
gramação relacionados com a geração 
de eventos aleatórios. 

Acerte o alvo no D-8000 — Programa 
de Ivo D'Aquino Neto. 

Aroldo, o tecnófilo — Conto de Guido 
Heleno. 

Jogos em computador, um assunto 
muito sério — Reportagem sobre a fa- 
bricação e comercialização de jogos no 
Brasil, incluindo uma pequena lista dos 
principais jogos disponíveis no merca- 
do brasileiro. 

OPT Soft & Hard: vendendo soluções 
-— Reportagens com a loja OPT Soft & 
Hard, SP. 
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drizzi Sabbatini sobre uma experiência 
feita em Ribeirão Preto com o uso de 
microcomputadores no ensino médico. 
Uma aplicação original — Reportagem 
sobre o uso de microcomputador na 
Avicultura Casa Afonso, no bairro de 
Perdizes, em São Paulo. 

Execução das instruções no processa- 
dor — Artigo de Orson Voerckel Gal- 
vão. 

A função USR(X) no D-8000 — Ar- 
tigo e programa de Ivo D'Aquino Neto. 
O micro aliado à criação — Reportagem 
sobre o emprego do microcomputador 
na agência de publicidade SSC & Lintas. 
Z80A e ZX81, uma poderosa combina- 
ção — Artigo de Milton Cabrerizo, 
apresentando um detalhamento da 
UCP ZB0A, a partir de sua utilização 
no micro inglês ZX81. 

Uma profissão diferente: cabeleireiro 
cibernético — Reportagem sobre o uso 
de um Sistema 700 no Salão Hairsty- 
ling, em São Paulo. 

Livros — “Understanding Your ZX81 
ROM” de lan Logan. 

O computador... entre queijos e vi- 
nhos — Reportagem sobre o emprego 
de um D-8002, da Dismac, na Eurico 
Comércio de Secos e Molhados, em São 
Paulo. 

Guerra Espacial — Programa de Jône- 
son Carneiro de Azevedo para os com- 
patíveis com o TRS-80 Modelos | e III. 
Como adaptar um joystick ao DGT- 
100 — Artigo de Newton Duarte Braga 
Júnior. 

Modems — Artigo de Flávio Arthur Ti- 
bau sobre os tipos, a utilidade e o fun- 
cionamento dos modems. 

Ordenador alfabético — Programa de 
Renato Degiovani para o NE-Z8000. 
Sistemas para diagnósticos médicos — 
Reportagem sobre o desenvolvimento 
de hardware e software pelos engenhei- 
ros da Divisão de Informática do Insti- 
tuto do Coração, em São Paulo. 
Macrofotografia na HP-41C — Progra- 
ma de Marcio Neumann que revela qual 
a melhor abertura do diafragma em ma- 
crofotografias. 

Micro entra para clube dos dez mais — 
Reportagem sobre a utilização de um 
microcomputador no Vídeo Clube Na- 
cional, no Rio de Janeiro. 

O computador no ensino de Inglês — 
Reportagem sobre o emprego do micro 
no Sistema Cenpro de Ensino de Lín- 
guas, em São Paulo. 

Os brinquedos que ensinam computa- 
ção — Reportagem sobre jogos manuais 
brasileiros que têm por tema o compu- 
tador. A 

Resta 1, desafio na HP-41C — Progra- 
ma de Carlos Acyr Pinto da Luz. 

O micro em um escritório de Atuária — 
Reportagem sobre o emprego de um 
S-700 em um escritório de Atuária, em 
São Paulo. 

Aplicação em doses homepáticas — Re- 
portagem sobre a implantação de um 
microcomputador em um consultório 
homeopático. 

Curso de Assembler — | — Curso de 
Amaury Moraes Jr. 

AIM-65, para pesquisa e desenvolvi- 
mento — Reportagem sobre a aplica- 
ção dos micros voltados para a área de 
pesquisa. 

Bacilus Terminales Especimén — Conto 
de Luís Carlos Silva Eiras. 

Calcule o tempo de retomo de seu in- 
vestimento — Programa de Fausto Ari- 
nos de Almeida Barbuto para o TKB2- 
Ce NE-Z8000. 

Digit-Hall, um novo espaço para os mi- 
cros — Reportagem sobre o Digit-Hall >» 
da Casa Garson. - 


19 





MICRO SISTEMAS, ANO II 





Número 18, março 1983 


10 


12 


14 


18 


26 


28 


37 


42 


58 


70 


74 


78 
82 


Professor JC: provas de múltipla esco- 
lha no micro — Programa de Jôneson 
Carneiro de Azevedo 

A revolução das letras — Artigo de Re- 
nato Pompeu sobre o impacto dos mi- 
croprocessadores na produção literária. 
Sinais de estado e ciclos de máquina — 
Artigo de Orson Voerckel Galvão so- 
bre o microprocessador da Intel 8080. 
4 Kb de RAM no TK82-C — Artigo de 
Glaucus Brelaz sobre o projeto de uma 
expansão de 2K para o TK, que permi- 
te o uso das expansões de 16 e de 64 
Kb oferecidas pelos fabricantes. 

O computador como ferramenta de en- 
sino — Artigo sobre as principais deli- 
berações do primeiro encontro que dis- 
cutiu a introdução do computador no 
ensino brasileiro em Salvador, Bahia, 
relatadas por um dos participantes, 
Fernando José de Almeida. 

Livros — “Que é isso computador?" do 
Sindicato dos Jornalistas Profissionais 
de São Paulo. 

Independência tecnológica e colonialis- 
mo — Artigo de João Antonio Zuffo 
sobre o esforço brasileiro para atingir 
a auto-suficiência tecnológica. 

Acerte as contas com o micro — Pro- 
grama de Maurício Costa Reis para o 
TK82-C. 

Método Simplex na TI-59 — Progra- 
ma de Norman Gillmore. 

O computador na linguagem infantil — 
Reportagem sobre o que as crianças 
pensam a respeito do computador. 
Comandando o relógio e o gravador no 
CP-500 — Programa de Maurício Ba- 
duy para controlar, por software, o re- 
lógio e o motor do cassete do CP-500, 
usando os comandos do BASIC Disco. 
Equipamentos — JP-01. 

Rumo à Educação informatizada — Ar- 
tigo de Suelena Porto Klein sobre as 
experiências feitas com micros, na 
UFRGS, através do seu Centro de Pro- 
cessamento de Dados. 

Aprenda Inglês no computador — Pro- 
grama de Renato Degiovani para o NE- 
Z8000 com 16 Kb de RAM. 

TK85: novo pessoal no mercado. 
Cursos: análise de um fenômeno — Re- 
portagem sobre os cursos livres de PD 
existentes no Brasil. 

Jogo da Forca Musical — Programa de 
Carlyle Macêdo Júnior e Edelvício Sou- 
za Júnior para o DGT-100. 

Informática e Direito — Artigo de Ver- 
tino Machado sobre as aplicações do 
computador pessoal na atividade jurí- 
dica. 

Curso de Assembler — Il. 

Pequenos programas para o TK e NE — 
Programas de Paulo César F. S. Cunha. 





Controle de investimentos em Letras 
de Câmbio — Programa de José Rai- 
mundo S. Sousa para a HP-97. 
CompuShop investe em informação — 
Reportagem sobre a loja CompuShop, 
SP. 
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As linguagens de programação — Arti- 
go sobre as linguagens de programação: 
tipos, características, vantagens, des- 
vantagens, aplicações; e um resumo de 
algumas pouco conhecidas no Brasil. 
O estado E3 e as interrupções — Arti- 
go de Orson Voerckel Galvão. 

Os programas tradutores — Artigo de 
Paulo Roberto Campos Ducap sobre os 
montadores, compiladores e interpreta- 
dores. 

Assembler — A primeira linguagem — 
Artigo de Amaury Moraes Jr. 

BASIC — Três faces da mesma lingua- 
gem - | — Artigo de Orson Voerckel 
Galvão comparando as instruções BA- 
SIC do TRS-80 modelo Ill, Apple Il e 
Sinclair ZX81. 

Pascal — No ensino ou na ciência, um 
poderoso instrumento — Artigo de 
Maurício Costa Reis. 

COBOL — A primeira em aplicações 
comerciais — Artigo de José Luiz do 
Nascimento Silva. 

Livros — “The Giant Book of Compu- 
ter Software” of TAB Books Inc. 
FORTRAN — Fórmulas matemáticas 
em programas — Artigo de Orson Voer- 
ckel Galvão. 

MUMPS — Trabalhando complexos de 
dados — Artigo de Ivan Costa 

LOGO — A matemática da tartaruga — 
Artigo de Dulce Madalena Autran von 
Pfuhl. 

LTD — Um mecanismo de entrada e 
crítica de dados — Artigo de Nilton do 
Valle Oliveira. 

Schumec faz mudanças no seu M-85. 
Microfestival 83 — Reportagem sobre o 
Microfestival 83, Primeiro Encontro 
Brasileiro de Microinformática. 

Curso de Assembler — Ill. 
Compiladores e linguagens — Artigo de 
Michael Stanton. 

Computeriand, uma experiência que 
deu certo — Reportagem sobre a loja 
Computerland, SP. 
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Programação Estruturada — Artigo de 
Mônica Fróes Peixoto sobre a técnica 
que torna mais simples e fácil a tarefa 
de programar e dicas para se fazer um 
programa em BASIC Estruturado. 
BASIC: três faces da mesma linguagem 
— | — Continuação do artigo de Orson 
Voerckel Galvão. 

Conversão — Cálculo de vigas contí- 
nuas na HP-41CV, 

O som nosso de cada micro — Artigo e 
programa de Rudolfo Horner Jr. sobre 
um método simples e prático de pro- 
dução de notas musicais para os com- 
patíveis com o Apple Il. 

Drama por computador — Entrevista 
com o escritor Doc Comparato. 
Classificando dados na TI-59 — Progra- 
ma de Edmir Ximenes. 

Livros — “Eletrônica Digital” de Her- 
bet Taub e Donald Shilling. 

Aplicação de estatística no microcom- 
putador — Programa de Francisco Bo- 
ratto para o HP-85. 

As flexíveis memórias EPROM — Arti- 
go de Vera Vaitekunas sobre as carac- 
terísticas e os recursos das memórias 
RAM, ROM, PROM e EPROM e as téc- 
nicas de gravação destas últimas. 
Forma, função e economia — Artigo de 
Renato Degiovani sobre a importância 
do Design no projeto de microcompu- 
tadores domésticos e pessoais. 

A importância do Design na Informáti- 
ca — Artigo de Valdir Soares. 

TK e NE no controle de cargas elétri- 
cas — Artigo de Jerre Palmeira Sales 
Equipamentos — CP-200. 

Cálculo de uma poligonal — Artigo e 
programa de Roberto B. Fonseca sobre 
uma aplicação para topografia, em BA- 
sic, utilizando uma calculadora Casio 
FX-702P. 

Renumere seus programas em BA- 
SIC — Artigo de José Ribeiro Pena Ne- 
to sobre a rotina RENUM, ideal para 
quem dispõe de micros da família 
TRS-80 e precisa renumerar programas 
em BASIC. 

Exames médicos micro-programáveis — 
Artigo e programa de Paulo Roberto 
Yamana sobre os dois exemplos de co- 
mo o micro pode ser utilizado em clí- 
nicas médicas para cálculos de exames 
que envolvam fórmulas matemáticas. 
Curso de Assembler — IV. 

Ipanema Micro: além das expectativas 
-— Reportagem sobre a loja Ipanema 
Micro, RJ. 
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Controle seu orçamento no TK e NE — 
Programa de Renato Degiovani. 

O DMA: acesso direto à memória — Ar- 
tigo de Orson Voerckel Galvão. 

O micro em contatos didáticos com o 
19 e 2º graus — Reportagem sobre a 
implantação de computadores no ensi- 
no de dois colégios paulistas. 

Cálculo PERT em BASIC — Artigo e 
programa de Ademir Castilho Piqueira 
e Willian Noriaki Uemara sobre os cál- 
culos de redes PERT em microcompu- 
tadores. 

HP-41C e BASIC: uma comparação — 
Artigo de Hilton Felício dos Santos. 
Desenhe e brinque com o micro — Arti- 
go de Andrew Fairbain sobre a arte de 
desenhar figuras geométricas no micro. 
Viagem ao fundo do DGT-100 — Arti- 
go de Newton Duarte Braga Júnior. 
Programe sua dieta (sem sacrifícios) — 
Programa de Pedro Luiz Ribeiro para 
o Apple Il. 

Equipamentos — Microengenho. 

Uma experiência em fazenda de gado 
(2) — Artigo de Willem A. Dutilh sobre 
os resultados obtidos com a utilização 
do micro no controle dos negócios de 
sua fazenda de gado. 

CP-300, novo membro da família Pro- 
lógica. 

TV em monitor: como adaptar — Arti- 
go de David Marco Risnik sobre como 
obter ótimos resultados na adaptação 
de uma TV comum a um monitor de 
vídeo. 

O. K. micro, você venceu! — Artigo de 
Rui Cesar Torres sobre o problema da 
ressequenciação de programas em lin- 
guagem de máquina no TK82-C. 
Datilografando no micro — Programa 
de Ivo D'Aquino Neto para o D-8001. 
Formato de gravação em cassete — Ar- 
tigo de Daniel Augusto Martins sobre 
gravações em cassete nos compatíveis 
como TRS-80. 

Composição de preços unitários — Ar- 
tigo e programa de José Eduardo Maluf 
de Carvalho para o TKB2-C. 

Livros — “Dicionário de Telecomunica- 
ções” de João Victório Pareto Neto. 
Jogue dados no seu NE-Z8000 — Arti- 
go e programa de Newton Duarte Bra- 
ga Júnior. 

Curso de Assembler — V. 

Metalurgia: Cálculo de Carga de Lami- 
nação a Frio na HP-25 — Artigo de 
Eduardo Poças Leitão. 

Informática em Recife: V Congresso — 
Reportagem sobre o V Congresso Re- 
gional de Informática, realizado entre 
8 e 15 de maio no Centro de Conven- 
ções de Pernambuco. 

Microshop: pronta entrega e orientação 
E a di sobre a loja Microshop, 
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Delimitadores de campos numéricos — 
Programas de Roberto Quito de Sant" 
Anna, um para o CP-500 e outro para 
o S-700, que facilitam a entrada de 
campos numéricos na tela. 
A animação de figuras com alta resolu- 
ção — Artigo de Carlos Alberto Jahara 
sobre o recurso de alta resolução gráfi- 
ca nos compatíveis com o Apple. 
A implementação das memórias — Ar- 
tigo de Orson Voerckel Galvão. 
Aeroporto 83 — Programa de Renato 
Degiovani para o TK82-C. 
Microprocessadores de 16 bits — Artigo 
de Antonio Rafael Dias Teixeira. 
Como automatizar sua programação — 
Artigo de José Rafael Sommerfeld. 
Equipamentos — QI-800. 
Escondendo o jogo no TKB2-C — Arti- 
go de Ronaldo de Almeida Santos so- 
bre as técnicas e os truques para prote- 
ger programas. 
No mundo das impressoras — Reporta- 
gem sobre as características e aplica- 
ções das impressoras e os problemas 
e planos da indústria. 
Controle de estoque no PC-1500 — Ar- 
tigo de Newton Braga Júnior. 
Livros — “Criança também faz progra- 
mas" de José Américo M. da Silva. 
No ritmo do HP-75 — Programa de 
Paulo Salles Mourão. 
Efeito sonoro no TK e NE — Artigo 
de Octávio Nogueira Neto. 
Tabela Price em BASIC — Programa de 
lvan Falcão de Domenico para o 
D-8002. 
Compilador FORTH para Z80 — Ar- 
tigo de Antonio Costa para os compatií- 
veis como TRS-B0. 
Eletrônica na HP-41 — Programa de Pe- 
dro Ricardo Drummond para todos 
aqueles que necessitam fazer, com fre- 
quência, as operações matemáticas 
obrigatórias da eletrônica. 
Um programa para radioamadores — 
Programa de Arnaldo Mefano. 
Pequenas memórias, grandes economias 
— Artigo de Renato Deglovani sobre 
como utilizar recursos de programação 
capazes de esticar memórias aparente- 
mente pequenas, em micros TKB2-C, 
NE-Z8000 e CP-200. 
Torre de Hanói: uma solução em BA- 
SIC — Artigo de João Henrique A. 
Franco que mostra o princípio da so- 
lução recursiva em programas BASIC, 
utilizando como exemplo o problema 
da Torre de Hanói. 
Curso de Assembler — VI. 
Composição de preços unitários — | — 
Continuação do Programa de José 
Eduardo Maluf de Carvalho. 
NCC'83: a vez dos periféricos — Re- 
portagem sobre os periféricos lançados 
na National Computer Conference — 
» 
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NCC dos Estados Unidos, de 16 a 19 20 A família 6809 da Motorola — Artigo listar as variáveis de programas em 
de maio no condado de Anaheim, Los de Carlos Eduardo Tarrisse da Fontou- BASIC Applesoft. 
Angeles. ra sobre a utilização do microprocessa- 16 Dígitos Verificadores — Artigo de Eral- 
86 Kristian: uma pequena grande loja — dor 6 e dos integrados 6883, 6847 do Souza Rocha que analisa os méto- 
Reportagem sobre a loja Kristian Ele- e 6821. dos para o cálculo de dígitos verifica- 
trônica Ltda., RJ. 28 Tradução Simultânea — Programa de dores, apresentando o algoritmo do 
Ivo D'Aquino Neto para o D-8000. módulo 11. 

30 Masterword: descubra a palavra — Pro- 18 Livros — Computes, Grilo! Computa- 
grama de Rubens Hungria de Lara para dor para todas as idades, de Rogério 
os compatíveis com o Apple. Costa Pereira. 

34 Anime-se... e faça bons jogos em BA- 24 Dó, Ré... Micro — Programa de Thelma 
SIC — Artigo de Renato Sabbatini so- V. T. da Fontoura que mostra os re- 
bre como desenvolver em BASIC jogos cursos musicais do TRS-80 Color Com- 
surpreendentemente rápidos e com- puter e sistemas compatíveis. 
plexos. 28 Abrindo Espaço na Tela — Artigo de 

38 Otimização de memória em Assembler Renato Degiovani que ensina como 
— Artigo de Elizabeth Simes Chaine. aproveitar as duas últimas linhas de Im- 

42 Equipamentos — CD-6809. pressão na tela, em micros tipo Sin- 

44 O mundo fantástico dos Adventures — clair. 

Artigo de Fábio Cavalcanti da Cunha. 30 O som (mais harmônico) de seu Apple 

46 Equipamentos - COLOR 64. — Programa de Evandro Mascarenhas 

ADVENTURES 48 Aventuras na selva — Programa de Re- de Oliveira que possibilita variar a fre- 
JOGO: tADOS nato Deglovani para o TKB2-C, NE- quência, o intervalo e a duração de 
6s Z8000 e CP-200. notas musicais no micro. 
O PROCESSADOR DO TRS-COLOR 54 Livros — “BASIC para micros pessoais" 32 Conversão —- O jogo Resta 1, no 
de Jorge da Cunha Pereira Filho. PC-1211. 
> 58 FORTH — Artigo de Antônio Costa so- 34 Jazz Cibernético — Programa de Mar- 
Número 23, agosto 1983 bre a linguagem FORTH. cus Brunetta para a decodificação de 
56 A Loteria na HP-41C — Programa de acordes. 
10 Um monitor Assembler para o TK82-C Ricardo Oliveira Ramos. 38 Equipamentos — EGO. 
— Programa de José Carlos Niza. 64 A implementação da cor — Artigo de 40 Simule um piano no seu teclado — Pro- 
12 Vídeo-Impressora, sem escalas — Pro- Thelma Vanderlinde sobre as dificulda- grama de Newton Braga Júnior para 
grama de Heni Sauala para os compatí- des para se implementar recursos grá- micros da linha TRS-80 Modelos | e 
veis com o TR$-80, com uma pequena ficos coloridos em micros pessoais. Mo. 
rotina para evitar “impressão” dos es- 68 Conhecendo melhor as strings — Artigo 42 Criptografia, uma arma contra os pi- 
paços em branco. de Roberto Quito de Sant'Anna. ratas? — | — Artigo de Candido Fon- 
16 Conversão — Professor Corujinha, no 70 O software no Brasil - Reportagem so- seca da Silva sobre os sistemas cripto- 
TK82-C. bre o seminário promovido pela SEI gráficos da era do computador. 
e PUC-RJ. 46 Acerte na loteca com o D-8000 — Pro- 

74 Organize melhor seus programas em grama de Ivo D'Aquino Neto. 
fita — Programa de Newton Duarte 48 Operações complexas em BASIC — 
Braga Jr. Programa de Valdir Aguilera que per- 

80 Curso de Assembler — VII. mite operar com números complexos. 

86 Orientação e cartão especial — Repor- 52 O micro dá a largada! — Programa de 
tagem sobre o Centro Experimental de Renato Degiovani com o jogo Fórmula 
Informática — CEI, da Servimec, SP. ds 

56 O erro de truncamento em BASIC — 
Artigo de Akeo Tanabe que explica as 
diferenças entre a aritmética decimal e 
a aritmética binária de ponto flutuante 
do BASIC. 
58 Aplicações em Saneamento Básico — 
INSTITUTO DE TECNOLOGIA ORT - Programas de Hílton Felício dos San- 
Mil ro tos (Cálculo de diques de uma lagos 
estabilizadora de esgotos, para a cal- 
CURSOS DE Istel Tas culadora HP-41C) e Antonio Carlos 
PROCESSAMENTO D Poa pecas Franco Zuccolo (Dimensionamento de 
E DADOS REA corda trechos de redes de distribuição de 
água, para o micro Sharp PC-1211). 
FORMAÇÃO DE PROGRAMADORES 84 penso no dia certo — Programa de 
uiz Gonzaga de Alvarenga para con- 
(COMPLETO) trole de datas de aniversários no CP-500. 
Duração: 8 meses 66 Flip: capture o adversário — Programa 
Horário: 2%a Sã feira de 19:00 às 22:00 hs de Honório Lisboa Neto. Um jogo pa- 
ra micros da linha Sinclair. 
MICROCOMPUTADORES E A is aspecto ria aa Tira di É 
stema de arras — Arti- 
LINGUAGEM BASIC go de Alwin Wilhelm Elbern. 
Duração: 3 semanas 74 Minhas piores partidas de xadrez — 
Horário: 22a Sa feira de 19:00 às 22:00 hs Programa de L. C. Lobato que arma- 
Turmas de 15 alunos zena essas partidas no próprio pro- 
3 grama, sob a forma de DATA. 
Número 24, setembro 1983 78 MICRO SISTEMAS, Ano Il — Índice 
da revista, abrangendo os números 13 a 
AMPLA UTILIZAÇÃO DO 6 Ponha música no seu TK — Programa 24. 
IBM-4341 E DO LABORATÓRIO de Cleuton de Melo Júnior. 84 Dicas — De programação e operação de 
12 Música, maestro! — Programa de Ro- micros. 
DE MICROCOMPUTADORES berto Quito de Sant'Anna. A canção 86 Curso de Assembler — VIII. 
Ain't she sweet exemplifica sub-rotinas 92 Data provável de parto — Programa de 


Visite o CPD-ORT = Diariamente após 
13:00 hs — R. Dona Mariana, 213 - Botafogo 


Rio 


de Janeiro — Tels.: 226-3192 - 246-9423 
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em linguagem de máquina que permi- 
tem aos programas rodarem tanto na 
versão disco como cassete. 

Rastreando variáveis — Artigo de Ru- 
dolf Horner Junior que mostra como 


Adauto Barbosa, de aplicação médica 
no CP-500. 

Computchê, uma loja trilegal! — Re- 
portagem sobre a loja gaúcha Com- 
putchê. E 
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ANO Il 


Há 2 anos contribuindo com 
a informática brasileira! 


Leia e assine: 


siso 


A PRIMEIRA REVISTA BRASILEIRA DE MICROCOMPUTADORES 


Publicação da ATI Editora 
que agora lhe oferece também 


Informática & 
E Administração 
LEAR TERROR 


( Se você não quiser cortar sua revista, tire uma xerox do cupom abaixo) 


nome 
empresa 
profissão 


endereço para remessa 


cidade 


assinatura de Micro Sistemas .........cccescccseeeeos 


assinatura de MS + Informática & Administração ....... 


Junte a estes dados, cheque nominal à : 
ATI Editora Ltda. 

Al. Gabriel Monteiro da Silva, 1229 
São Paulo - SP - Cep 01441 


(seu recibo será enviado pelo correio) 








Personalize o sistema operacional 


Aí vão três dicas para personalizar o Sistema Opera- 
cional do DOS 500/TRS DOS, aumentando, ao mesmo 
tempo, a sua funcionalidade: 
1a — Para não ter que consultar sempre o manual para 
decifrar as enigmáticas mensagens de erro do DOS 
500/TRS DOS, modifique o sistema operacional para que 
mostre a mensagem de erro completa. Para isto basta 
digitar, em DOS 500 Ativo/TRS DOS READY: 

PATCH *4 (ADD=4E28, FIND= 20,CHG=18)<ENTER > 
22 — Se você não quer mais ser obrigado a fornecer 
data/hora ao dar o RESET, digite: 

PATCH *0 (ADD=4EA9,FIND=CA,CHG=C3)<ENTER> 
3a — Para que o diretório do disco seja mostrado auto- 
maticamente a cada RESET, sob DOS 500 Ativo/TRS 
DOS READY, digite: 

AUTO DIR < ENTER > 

O manual do DOS 500 ensina (no último parágrafo da 
página 48) como reverter o sistema à condição original, 
caso o usuário não deseje mais as modificações realizadas 
pelos PATCHES. 


Roberto Quito de Sant'Anna — RJ 


Arredondamento de valores decimais 

A representação interna de valores numéricos no 
computador leva, por vezes, a erros de aproximação em 
algumas operações. Por exemplo, o resultado de PRINT 
(30.30 — 30) será .299999, ao invés de .3, como seria 
esperado. Como na maioria das aplicações com números 
decimais não são necessárias mais do que duas casas após 
o ponto, uma maneira simples de forçar o cálculo de 
números de precisão dupla com duas casas decimais e, ao 
mesmo tempo, arredondar o resultado para o centésimo 
mais próximo, é converter um valor qualquer X da 
seguinte maneira: 

X *= INT(X & *100 & +0.5 4 )/100 + 

O mecanismo funciona assim: a multiplicação por 
100 * desloca o ponto decimal duas casas para a direi- 
ta; a adição de 0.5 * e a aplicação de INT arredondam o 
resultado e eliminam os dígitos não pise e a divisão 
por 100 % retorna o ponto decimal de pe original. 

Este método tem sobre o PRINT L a grande 
vantagem de arredondar o próprio valor armazenado, e 
não apenas o valor impresso. Pode-se, ainda, obter qual- 
quer número de casas decimais (respeitando-se, é claro, o 
número de dígitos com que o valor pode ser representa- 
do) simplesmente substituindo-se a constante 100 * da 
expressão pelo valor 10N, onde N é o número desejado 
de casas decimais. 

No caso de se usar valores de precisão simples, basta 
suprimir todos os símbolos 4 da fórmula, ou substituí- 
los por !, não esquecendo, porém, de que os valores de 
precisão simples são impressos com apenas seis algaris- 
mos, embora sete sejam armazenados. 


Roberto Quito de Sant'Anna — RJ 





Rode a tela para 


n6s14 24 BC AO 
16517 q 21 16 


6518 
16521 co 9440 


z 
16525 06 É 
16527 29 


RAND USR 16514 


Rode a tela para baixo 


16514 a 16545 
16546 2A BC 40 
16549 
16552 
16553 
| 16556 
16559 
16561 
16564 
16567 
16568 
16569 
16570 
16573 
16576 
16577 
16579 
16582 ED SB BC 40 
16586 13 
16587 01 20 00 
16599 ED BO 
16592 C9 


pop BC 
DINZ À 
RET 
pusH HL 
pusH se 
LD B 
LD Ap ÓRL) 
INC 
LD Cs (uL) 
DEC 


NZ 
To (uL),A 
pop BC 
pop HL 
RET 


ron Gomes Vila — PE 
Robson Gomes Vilet — 


Robson Gomes 


RAND USR 16546 


Rode a tela para cima 


16514 a 16545 
16546 
16549 
16559 
16553 
16556 
16558 
16561 
16562 
16565 
16566 
16570 
16571 
16574 
16576 
16579 
16580 
16583 
16584 
16585 
16588 
16591 
16593 


RAND USR 16546 


32 bytes reservados 
LD HL, (16396) 

INC HL 

LD DE,16514 

LD BC,32 


LDIR 

LD HL,(16396) 
INC HL 

LD BC,33 

ADD HL,BC 

LD DE, (16396) 


INC DE 
LD BC,693 


LDIR 
LD HL, (16396) 
INC HL 


LD BC,693 
ADD HL,BC 
EX DE,HL 

LD HL,16514 
LD BC,32 
LDIR 
RET 


er e 
Robson Gomes Vilela — PE 


32 bytes reservados 
LD HL, (16396) 
LD BC,694 

ADD HL,BC 

LD DE,16514 
LD BC,32 

LDIR 

LD BC,726 

LD HL, (16396) 
ADD HL,BC 

LD D,H 

LD E,L 

LD BC,693 

LD HL, (16396) 
ADD HL,BC 
LDDR 

LD HL,16514 
LD DE, (16396) 
INC DE 

LD BC,32 

LDIR 

RET 


cmi 
Robson Gomes Vilela — PE 








0110 0111 0100 0000 1100 1111 
ago 1000 c010 








truções que compõem o grupo de carga de 16 bits: 





10 — Move registrador indexador IX para memória 

Formato: LD (nn), IX 

Operação: Move o conteúdo do registrador indexador IX de 
16 bits para a memória a partir da posição indicada por nn. 


Código objeto: 


LD (nn),IX 






«— ns, 






EXEMPLO: 


LD (7F10H),IX 





esta lição daremos continuidade à descrição das ins- 


Curso de 


Assembler — VIII 


Descrição: O conteúdo dos 8 bits de baixa ordem do regis- 
trador indexador IX é carregado no endereço de memória dado 
por nn e o conteúdo dos 8 bits mais significativos do registra- 
dor indexador IX é carregado na posição de memória nn+1. 


(OBA) 4— IX 
(GoBBH) d-— IX, 


LD (30BAH),IX 


Ciclos de máquina: (M): 6 

States (T): 20(4,4,3,3,3,3) 

Flags afetadas: Nenhuma 

Como exemplo, se o conteúdo do registrador indexador IX 
€.4158H, após a execução da instrução LD (4000H), IX, o en- 
dereço de memória 4000H conterá o byte 58H e o endereço 
seguinte 4001H conterá o byte 41H. 


11 — Move registrador indexador IY para memória 

Formato: LD (nn), IY 

Operação: Move o conteúdo do registrador indexador IY 
de 16 bits para a memória a partir da posição indicada por nn. 


Código objeto: 


LD (nn),IY 
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EXEMPLO: 


LD (3C00H),IY 





00100010 


00000000 
00111 1070 


———p- 00 


Descrição: O conteúdo dos 8 bits de baixa ordem do regis- 
trador indexador IY é carregado no endereço de memória dado 
por nn e o conteúdo dos 8 bits mais significativos do registra- 
dor indexador IY é carregado na posição de memória nn+1. 


LD (70F3H),IY (70F3H) 4— Iv, 


(70F4H) €-——I “4 

Ciclos de máquina (M): 6 

States (T): 20(4,4,3,3,3,3) 

Flags afetadas: Nenhuma 

Um exemplo: se o conteúdo do registrador indexador IY é 
6000H, após a execução da instrução LD (402DH), IY, o en- 
dereço 402DH de memória conterá o byte 00H, enquanto o 
endereço seguinte, 402EH, conterá o byte 60H. 


12 — Move par de registradores HL para Stack Pointer 
Formato: LD SP,HL 
Operação: Move o conteúdo do par de registradores HL pa- 
ra o registrador SP de 16 bits. 
Código objeto: 


LD SP,HL 
[Es] +» 


Descrição: O conteúdo do par de registradores HL de 16 
bits é transferido para o registrador STACK POINTER (SP) 
de 16 bits. 


LD SP,HL SP 4— H 


E o ET L 


Ciclos de máquina (M): 1 

States (T): 6 

Flags afetadas: Nenhuma 

Como exemplo, se o par de registradores HL contém 4400H, 
após a instrução LD SP,HL, o registrador SP também conterá o 
valor 4400H. 


13 — Move registrador indexador IX para STACK POINTER 
Formato: LD SP IX 
Operação: Move o conteúdo do registrador indexador IX 
para o registrador SP de 16 bits. 
Código objeto: 


LD SP,IX 


[renato] —poo 
irei] —pr» 


Descrição: O conteúdo do registrador indexador IX de 16 
bits é transferido para o registrador STACK POINTER (SP) de 
16 bits. 
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LD SP,IX SPy €— IXy 


SP dt— xi 


Ciclos de máquina (M): 2 

States (T): 10(4,6) 

Flags afetadas: Nenhuma 

Veja o exemplo. Se o registrador IX contém o valor 
7FFEH, após a instrução LD SP,IX o registrador SP também 
conterá o valor 7FFFH. 


14 — Move registrador indexador IY para STACK POINTER 
Formato: LD SP IY 
Operação: Move o conteúdo do registrador indexador IY 
para o registrador SP de 16 bits. 
Código objeto: 


LD SP,IY 


NI em] —» mo 
irao ei) —pes 


Descrição: O conteúdo do registrador indexador IY de 16 
bits é transferido para o registrador STACK POINTER (SP) de 
16 bits. 


LD SP,IY SP, Iv, 


a ad 


Ciclos de máquina (M): 2 

States (T): 10(4,6) 

Flags afetadas: Nenhuma 

Como exemplo, se o registrador IY contém o valor 9C01H, 
após a instrução LD SP,IY o registrador SP também conterá o 
valor 9C01H. 


15 — Move par de registradores para o STACK POINTER 

Formato: PUSH qq 

Operação: O conteúdo do par de registradores qq é coloca- 
do na memória de trabalho do microprocessador, chamada 
STACK. 

Código objeto: 


PUSH qq 


00 para qq = par de registradores BC 
01 para qq = par de registradores DE 
10 para qq = par de registradores HL 
11 para qq = par de registradores AF 
EXEMPLO: 

PUSH HL 


liijojojifo 1] ——ees 


Descrição: O conteúdo do par de registradores qq é coloca- 
do na memória de trabalho do microprocessador. Esta memó- 
ria é chamada STACK e opera na estrutura LIFO (last-in, first- 
out), isto é, o último valor colocado no STACK será sempre o 
primeiro a sair; o penúltimo valor colocado no STACK será o 
segundo a sair; e assim sucessivamente. 

Podemos entender melhor a operação desta memória se fi- ,, 
zermos uma analogia com uma pilha de caixas. A última caixa 4 
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colocada na pilha será sempre a primeira a ser retirada e se qui- 
sermos retirar uma caixa que se encontra no meio da pilha te- 
remos que retirar todas as caixas que se encontram acima da 
caixa desejada. 


O registrador STACK POINTER de 16 bits contém o ende- 
reço corrente do topo do STACK. Uma instrução de PUSH pr- 
meiro decrementa o endereço contido no STACK POINTER 
e move o conteúdo do registrador de alta ordem do par de regis- 
tradores especificado para o endereço apontado pelo STACK 
PO Em seguida, decrementa o registrador SP nova- 
mente e move o conteúdo do registrador de baixa ordem do 
par de registradores especificado para o endereço apontado 
pelo STACK POINTER. 


EXEMPLO: PUSH DE (sP-D)d-— D 
(SP-2) 4-— E 
Ciclos de máquina (M): 3 
States (T): 11(5,3,3) 
Flags afetadas: Nenhuma 


Como exemplo, se o par de registradores AF contém 2233H 
e o STACK POINTER contém F545H, após a instrução PUSH 
AF, o endereço de memória F544H conterá o byte 22H, o en- 
dereço de memória FS43H conterá o byte 33H e o STACK 
POINTER conterá F543H. Agora o valor 2233H está contido 
no par de registradores AF e no topo do STACK. 


16 — Move registrador indexador IX para o STACK 

Formato: PUSH IX 

Operação: O conteúdo do registrador indexador IX de 16 
bits é colocado no STACK. 


Código objeto: 
PUSH IX 


OA] —» oo 
[1100104] —pes 


Descrição: O conteúdo do registrador indexador IX é colo- 
cado no STACK. Esta instrução primeiro decrementa o 
STACK POINTER e move o byte mais significativo do registra- 
dor IX para o endereço de memória especificado por SP, para, 
em seguida, decrementar novamente o STACK POINTER e 
mover O byte menos significativo do registrador IX para o en- 
dereço de memória especificado por SP. O STACK é utilizado 
pe o armazenamento temporário do conteúdo de um regjs- 
trador. 


EXEMPLO: PUSH IX (SP-1) 4— 1X, 


(SP-2) <—Ix, 


Ciclos de máquina (M): 4 

States (T): 15(4,5,3,3) 

Um exemplo: se o registrador indexador IX contém 3C00H 
e o STACK POINTER contém 7540H, após a execução da 
instrução PUSH IX o endereço de memória 753FH conterá o 
byte 3CH, o endereço de memória 753EH conterá o byte 00H 
e o STACK POINTER conterá 753EH. 


17 — Move registrador indexador IY para o STACK 

Formato: PUSH IY 

Operação: O conteúdo do registrador indexador IY de 16 
bits é colocado no STACK. 








Código objeto: 
PUSH Iy 


11111101])-—pFD 
ivo bnioa) ++» 


Descrição: O conteúdo do registrador indexador IY é colo- 
cado no STACK. Esta instrução primeiro decrementa o 
STACK POINTER e move o byte maus significativo do registra- 
dor IY para o endereço de memória especificado por SP, para 
então decrementar novamente o STACK POINTER e mover o 
byte menos sigmficativo do registrador IY para o endereço de 
memória especificado pelo STACK POINTER. 


(SPD 4 Iv, 
(SP-2) 4—1y, 


EXEMPLO: PUSH Iy 


Ciclos de máquina (M): 4 

States (T): 15(4,5,3,3) 

Como exemplo, se o registrador indexador IY contém 
90FSH e o STACK POINTER contém 7000H, após a execução 
da instrução PUSH IY o endereço de memória 6FFFH conterá 
o byte 90H, o endereço de memória 6FFEH conterá o byte 
FSH e o STACK POINTER conterá 6FFEH. 

18 — Move STACK para par de registradores 

Formato: PoP qq 

Operação: O conteúdo do topo do STACK é colocado no 
par de registradores qq. 

Código objeto: 

PoP qq 


00 para qq = par de registradores BC 
01 para qq = par de registradores DE 
10 para qq = par de registradores HL 
11 para qq = par de registradores AF 
EXEMPLO: 


Pop BC 


ulifojojojojo [1 —p ci 


Descrição: Esta instrução coloca no registrador de baixa 
ordem do par de registradores qq o conteúdo da posição de 
memória apontada pelo STACK POINTER, incrementa o con- 
teúdo do registrador SP, move o conteúdo da posição de me- 
mória apontada pelo STACK POINTER para o registrador de 
alta ordem do par de registradores qq e incrementa novamente 
o conteúdo do STACK POINTER. 


EXEMPLO: PoP DE Ed— (sP) 


D€— (sP+1) 


Ciclos de máquina (M): 3 

States (T): 10(4,3,3) 

Flags afetadas: Nenhuma 

Como exemplo, se o STACK POINTER contém 9000H, 
a locação de memória 9000H contém 55H e a locação de me- 
mória 9001H contém 01H, após a execução da instrução 
PoP HL o par de registradores HL conterá o valor 0155H e o 
conteúdo do STACK POINTER será 9002H. 


19 — Move STACK registrador indexador IX 
Formato: PoP DE 
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Operação: O conteúdo do topo do STACK é colocado no 
registrador indexador IX de 16 bits. 


PoP IX 


[EnToaTo] —» do 
11100001 mm E 


Descrição: Esta instrução coloca nos 8 bits menos significati- 
vos do registrador indexador IX de 16 bits o conteúdo de posição 
de memória apontada pelo STACK POINTER, incrementa o 
conteúdo do registrador SP, moye o conteúdo da posição de 
memória apontada pelo STACK POINTER para os oito bits 
mais significativos do registrador indexador IX e incrementa 
novamente o conteúdo do STACK POINTER. 


PoP IX Ix, 4— (SP) 
IX, €— (SP+1) 


EXEMPLO: 


Ciclos de máquina (M): 4 

States (T): 14(4,4,3,3) 

Flags afetadas: Nenhuma 

Como exemplo, se o STACK POINTER contém a locação 
de memória 7000H, a locação de memória 7000H contém 
9AH e a locação de memória 7001H contém 35H, após a 
execução da instrução PoP IX o registrador IX conterá o valor 
359AH e o conteúdo do STACK POINTER será 7002H. 


20 — Move STACK para registrador indexador IY 

Formato: PoP IY 

Operação: O conteúdo do topo do STACK é colocado no 
registrador indexador IY de 16 bits. 


Código objeto: 
PoP. LY 


Ae] —+o 
11020/0:0 01] +—+=3"E% 


Descrição: Esta instrução coloca nos oito bits menos signifi- 
cativos do registrador indexador IY de 16 bits o conteúdo da po- 
sição de memória apontada pelo STACK POINTER, incremen- 
ta o conteúdo do STACK POINTER, move o conteúdo da po- 
sição de memória apontada pelo STACK POINTER para os 
oito bits mais significativos do registrador indexador IY e 
incrementa o STACK POINTER. 

EXEMPLO: PoP IY Iv, 4—— (5B) 
Ivy €—(SP+1) 


Ciclos de máquina (M): 4 

States (T): 14(443,3) 

Flags afetadas: Nenhuma 

Como exemplo, se o STACK POINTER contém 9000H e a 
posição de memória 9000H contém 7FH e a posição seguinte 
47H, após a execução da instrução PoP IY o registrador IY 
conterá o valor 477FH e o conteúdo do STACK POINTER se- 


rá 9002H. 1 





Amaury Correa de Almeida Moraes Junior é formado pelo curso de 
Análise de Sistemas da FASP, tendo feito diversos cursos de aperfeiçoa- 
mento nas áreas de Eletrônica Digital e Microprocessadores. 

Amaury trabalha como Analista de Sistemas na PRODESP, na área de 
mini/microcomputadores, e presta consultoria a empresas para a implan 
tação de sistemas de microcomputadores. 





Impressora 
Matricial 
Elgin Lady 





Velocidade de impressão 100 cps 
132 colunas a 10 cpi 


A impressora Elgin Lady é o novo padrão para aplicações profissionais 
em seu computador pessoal ou microcomputador. 

Com velocidade de 100 CPS, os c 
no formato 9 x 7, são de alta resolução. Com capacidade de 132 colunas, 
comporta até 264 caracteres/linha. 

Através de uma tecla, em modo conversacional, 18 funções são disponíveis 
para completa definição do formato de impressão, 

entre as quais 11 funções podem ser programadas via software. 

Com o módulo Elgingraph, a impressora Elgin Lady 

constitui a melhor escolha para seu microcomputador, 

em aplicações que requerem total flexibilidade gráfica 

através de caracteres semi-gráficos ou funções gráficas 

com endereçamento a nível de agulhas. 

As interfaces, intercambiáveis a nível de operador, 

capacitam a Elgin Lady a uma série de diferentes conecções 

com a maioria dos microcomputadores 

e sistemas disponíveis no mercado. 


teres impressos em matriz de pontos 


“Uma Divisão de ELGIN MÁQUINAS SA. 
Rua 305 


Barão de Campinas, 
CEP 01201 - Tel. 220-1611 
Tetex: (011) 37805 - ELGI BR 


Filiada à 


Fábrica em das Cruzes - SP, 
ABICOMP asi 


Conheça a nova Elgin Lady em 


VEIMPI069-83 


São Paulo: MICROSHOP - Fone: 282-2105 « COMPUTERLAND 
SERVIMEC - Fone: 2221511 e IMARÉS - Fone: 881-0200 
Rio de Janeiro: COMPUTIQUE - Fone: 267-1093 e CLAPPY - Fone: 253-7930 « TECNITRON - Fone: 233-9670 





Fone: 258-2954 e COMPUSHOP - Fone: 212-9004 
Campinas: COMPUTIQUE - Fone: 32-3810 


E) Porto Alegre: INFORMATIQUE - Fone: 21-4189 « COMPUMÍDIA - Fone: 22-5061 


sp 
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e Tendo adquirido um compu- 
tador de bolso SHARP PC-1500, 
teria interesse em me correspon- 
der com usuários deste micro. 
Disponho de alguns programas de- 
senvolvidos para a área financeira, 
bem como de duplicatas de seus 
manuais, inclusive o “Service Ma- 
nual”, Antonio Cesar de Sá Lei- 
tão, Rua Wanderley de Pinho, 
644/1001, Itaigara, CEP 40000, 
Salvador, Bahia. 


e Gostaria de entrar em contato 
com usuários do micro DGT-100 
para troca, compra e venda de 
programas, assim como idéias e di- 
cas. Caso haja algum clube deste 
micro ou compatíveis favor escre- 
ver ou telefonar para Rodirgo Ce- 
sar Santos, Rua Pedro Dutra, 212, 
Jaraguá, Belo Horizonte, CEP 
30000, MG, tel.: (031) 443-2096. 


e Gostaria de trocar idéias, expe- 
riências e principalmente jogos 
com pessoas que possuam o mi- 
crocomputador CP-200 ou simila- 
res. Entre em contato com João 
Bosco de Castro na Rua Licinio 
Leite Machado, 59, Bairro Santa- 
na, São José dos Campos, São 
Paulo ou pelo tel.: 22-0420. 





e Sou estudante universitário na 
área de Engenharia Elétrica (op- 
ção eletrônica). Teria o maior 
prazer em receber informações 
nesta área e/ou ofertas de material 
técnico e didático. Humberto de 
Castro Jr. Travessa das Mercédes, 
324, São Bráz, Belém, PA, CEP 
66000. 

e Meu nome é Henrique Ávila 
Vianna, tenho dez anos e gosta- 
ria de me corresponder com pes- 
soas que tenham microcomputa- 
dores Apple Il, ou compatíveis, 
para troca de idéias, informações, 
programas e jogos. Tenho um Mi- 
croengenho e gosto muito de fa- 
zer programas e jogos. Estou con- 
vidando as pessoas que quiserem 
a enviarem suas cartas para: Hen- 
rique Ávila Vianna, Rua Armando 
G. Sica, 55, Pelotas, Rio Grande 
do Sul, CEP 96100. 


e Desejo entrar em contato com 
pessoas que possuam um DGR- 
100 para trocar idéias e programas. 
Tenho muitos programas em BA- 
SIC e linguagem de máquina, Es- 
crever para J. F. da Silva F., Rua 
General Osório, 1031, salas 106 e 
107, CEP 13100, Campinas, tel.: 
(0192) 86537, SP. 
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SOFTWARE 


e Vendo uma fita com os se- 
guintes programas: Labirinto, 
Monstro das Trevas, Fugitivo, De- 
molidor, Agenda e Orçamento 
Doméstico, para os seguintes mi- 
cros: TK82-C, TK85, CP-200, etc, 
pelo preço de Cr$ 10 mil. Tratar 
com Vicente Quartieri à Rua Ipê, 
110, São Vicente, São Paulo ou 
pelo tel.: 67-4805. 

e Vendo ou troco programas de 
jogos para TK82-C e TK85. Tra- 
tar com Edson, Rua Guariba, 54, 


Vila Ema, São Paulo, tel.: (011) 
918-0998 (com Ruth). 
e Troco programas (principal- 


mente jogos) para micros compa- 
tíveis com o DGT-100. Renato 
Nogueira Mendes, Rua Mosela, 
436, Mosela, Petrópolis, RJ, tel.: 
(0242) 42-2255. 


EQUIPAMENTOS. 


e Compro esquema de qualquer 
microcomputador com base no 
microprocessador Z80 (TK82-C, 
NE-Z8000, CP-200, ZX81, etc), 
se possível com desenho de placa 
e com indicação das peças. Tra- 
tar com Marcos Ceciliato, Cx. Pos- 
tal 45, CEP 13330, Indaiatuba, 
São Paulo. 


e Vendo TRS-80 Modelo |, 48K, 
interface, dois drives 5+1/4, ma- 
nuais, diversos software, disketes, 
tudo com pouquíssimo uso, pela 
melhor oferta. Piso de Cr$ 800. 
mil. Tratar com Osni, tel.: (011) 
246-3133. 


e Vendo computador DGT-100,. 
com monitor verde fosforizado, 
interface para até 4 disk-drives e 
para impressora paralela. Possui 
um disk-drive com 184 Kbytes, 
48 Kbytes de RAM e 20 Kbytes 
de ROM. Tratar com Vitor, após 
às 19:00h, pelo tel.: (011) 825- 
0055. 


e Vendo ou troco por EPROM 
PROGRAMMER: 2K serial inter- 
face Buffer Board for MX-100 e 
Parallel Interface Board/Cable for 
Aplle 1|/MX-B0. 


e Vendo impressor PC-100C pa- 
ra calculadora Texas TI-58 e TI- 
59. Preço de Cr$ 220 mil. Acom- 
panha bolsa de couro e três rolos 
de papel. Estado de conservação: 
NOVA (na caixa). Tratar com 
Douglas Werner Heckmann, Rua 
Tuiut(, 35, Rio do Sul, SC, 89.160 
ou pelo tel.: (0478) 22-0907 (fins 
de semanal). 


e Troco microcomputador de 
bolso (novo), 2,5 Kbytes de me- 
mória, com impressora, interface 
para cassete, 130 programas, ma- 
nual de instrução e de curso BA- 
SIC, (PC 1211 RP) da Sharp, por 
um microcomputador D 8001 da 
Dismac. Tratar com Vitor pelo 
tel.: (0192) 51-9755, ramal 5685, 
Campinas, São Paulo. 


e Vendo um CP-500 com 48K 
bytes, um drive para disquetes de 
5 1/4” e com unidade sonora, O 
microcomputador ainda está na 
garantia. Recados para Oswaldo 
pelo telefone: (011) 264-2497. 


e Gostaria de obter cópias de 
manuais dos seguintes micros: Sin- 
clair ZX81, VIC 20, Atari 400, 
Atom e Oric-1 e PC-1500. Se a có- 
pia do manual não for possível, 
pelo menos o mapeamento de me- 
mória. Oduvaldo Barroso da Silva, 
Rua Prof. Valadares, 220/201, 
CEP 20561, Grajaú, RJ. 


e Troco CP-500 de 48 Kbytes e 
dois drives por TRS-80 Ill com 
idêntica configuração. Só troco 
em perfeito estado, pago a dife- 
rença a combinar. Cartas para 
Paulo Fernandes, Rua Emiliano 


. Perneta, 837/802, Curitiba, Para- 


ná. 


e Vendo um microcomputador 
de bolso Casio FX702/801, com 
interface, printer e fitas para jo- 
gos. Tratar com Rubens, tel.: (011) 
445-4962 ou 445-1940. 


e Vendo TK82-C com expansão 
de 16K de RAM, com apenas três 
meses de uso, por Cr$ 100 mil. 
Acompanha dois jogos. Tratar 
com José Tavares na Av. Vicente 
de Carvalho, 92/124, Santos, São 
Paulo, CEP 11100. 


e Vendo Calculadora Hewlett- 
Packard 41C, por Cr$ 190 mil. 
Tratar com Arlindo Martins Filho, 
Rua Esmeraldino Bandeira, 393, 
Aflitos, Recife, Pernambuco, 
50.000, tel.: (191) 222-4925. 


DIVERSOS 


e Faço adaptações do teclado 
original do TK82-C para teclas de 
borracha. Informações com Tuca 
pelo telefone: (011) 864-8479, 
São Paulo. 


e Preciso de manual ou xerox 
do manual do Disk-Basic e do 
DOS do NEWDOS-80, versão 2.0 
para o TRS-80 Modelo |. Quem ti- 
ver, por favor, entrar em contato 
com Beth (711-7844) ou Eraldo 
(719-9265) à noite, São Paulo. 


e Compro os números 1,2 e 3 
de MICRO SISTEMAS. Cláudio 
Márcio, tel.: (0245) 22-4016 (a 
noite). Nova Friburgo, RJ. 


e Compro os números 2,6,7e9 
de MICRO SISTEMAS. Tratar 
com Edson Miguel, Rua Benjamin 
Constant, 490, 13300, Itu, tel.: 
482-0998, SP. 


e Oferece-se palestra sobre mi- 
crocomputador com slides. Infor- 
mações e inscrições pela Caixa 
Postal 7459, CEP 0100, São Paulo. 


e Vende-se cadastro de usuário 
de computador. Escreva para Cx. 
Postal 7459, CEP 01000, São Pau- 
lo. 
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A partir de hoje estarei em sua memória todos os 
dias, no trabalho, em casa, no lazer. Agora somos 
dois, eu e você. Sou flexivel e se você desejar, 
pode me utilizar com todos os K-Bytes de potência. 
Quando estivermos juntos, não ficará somente uma 
vaga lembrança, mas sim, muitos bytes de memória. 
Você pode me encontrar em todas as modalidade 
“Simples ou dupla face, 8 ou 5 4, 
sou compatível com todos os tipos de 
e minha certificação é garantida de zero erros. 
Agora você pode me adquirir em qualquer ponto 
no Brasil, airands da Rede areia de e 


Representantes e Revendedores. 
é Es - EE 


ta 








Um programa que demonstra, de forma simples, a utilidade de micros 
na medicina: Cálculo da Data Provável de Parto. 





D ata prov ável | Cálculo da Data Provável de Parto 














d 11 TABELA OBSTETRICA 

e parto |: 
| 3 AUTO! ADAUTO DUTRA M BARBOSA 
| 4 NITEROI 1983 
| 120 cis 


Adauto Barbosa | 130 FOR B=1 TO 127:SET(B,1):NEXT 
” | 140 FOR B=1 TO 47:SET(1,B):NEXT 
150 FOR B=1 TO 127:SET(B,47):NEXT 
| 160 FOR B=1 TO 47:SET(127,B):NEXT 
; | 70 28150, "TABELA OBSTETRICA” 
ma grande verdade conhecida de todos os médicos é 180 26214, STRING$(17,":") 
o dito a clínica é soberana. Sabemos que nunca nada | 190 2€278,"REGRA DE NAGELLE*" 


: ei 200 ? 
substituirá a boa anamnese e o bom exame físico. | 210 20TAB(5) "DATA DA ULTIMA MENSTRUACAO” 


Entretanto, também é verdade que para isso é necessário | 220 2e453,STRING$(25,"-") 





tempo. 230 INPUT "((DIGITE ENTRE VIRGULAS:DIA,MES,ANO):"; 
Informações novas de todo tipo que nos chegam todos os «MA é 
e P, o 5 . ” sºs TRI 1 
dias e têm que ser sedimentadas e digeridas quase que de | 240 Draco PRESA RECAI DOP PARTOS ESÕO 6 CRE 
imediato, tomam-nos preciosas horas, e o tempo gasto | 250 2709,STRING$(22,"-"):28740,STRING$S(1,"-"):2874 | 
com cada paciente deve ser o maior possível. | 9,STRINGS(1,"-") | 
| 


Assim, qualquer medida que se tome para tornar o tempo | 260 Eça, Le RAN "**) THEN 20742,"DIA:";D+ASC( 
do médico melhor aproveitável é válida e o progresso | 279 rp D>ASC("6")-ASC("8") THEN 28742, "DIA:";D-(ASC 
tecnológico nos trouxe um pequeno aparelho que vem de | ("2r)-asC("8")) 
encontro a isto: o microcomputador. | 280 IP D=AsC( Tur J-ASC("<") THEN 20742, "DIA:";ASC("* | 
Como exemplos simples de utilização do micro num | 59 11 pensctmyr J-ASC(*;") THEN 28742, "DIA: ";ASC("! 
consultório médico, podemos citar: cadastramento de ")-asC("S”) . E q 
clientes; marcação de consultas; arquivo de dados de | 300 20804,STRING$S(1,"-"):20813,STRINGS(1,"=") 
anamnese; exames físicos, diagnósticos e do tratamento; a1o Pirai preta ro cio ra e 
: ; semp a : <= ' a": | 
rt de diagnósticos pra Nona da tava SC(*/")-ASC("&" ):28877,STRINGS(1,"!") 
de difícil memorização; contabilidade do consultório etc. | 330 M$=CHR$(52):IF M>=VAL(MS) THEN 20870, "MES: ";M-( | 
O programa que apresentamos a seguir é um exemplo pequeno ASC("=")-ASC(":")):20877,STRING$(1,"'") 
que poderia fazer parte da rotina diária de um consultório, | 340 26932,STRINGS(1,"""):28941,STRINGS(1,"'*) 
laboratório ou hospital. Ele calcula uma data provável do | 350 Eq tdi o O co PR 
parto de gestantes a partir da data da última menstruação, | 370 R$=CHR$(52):IP M=VAL(R$) THEN 26934, "ANO: 
através da Regra de Nagelle, e foi desenvolvido em c("/")-ASC(".º) 


BASIC no CP-500. | 380 2941,STRING$(1,"'”) | 
| 390 FOR K=1 TO 47:SET(1,K):NEXT 
400 FOR K=1 TO 127:SET(47,K):NEXT 
410 FOR K=1 TO 47:SET(127,K):NEXT 

















420 FOR K=1 TO 35:SET(K,3):NEXT 
430 FOR K=80 TO 127:SET(K,3):NEXT 
Adauto Dutra M. Barbosa é Médico Pediatra pós-graduado pela Univer- 440 FOR K=1 TO 127:SET(K,1):NEXT 


sidade Federal do Rio de Janeiro — UFRJ e utiliza microcomputadores 450 Z$=INKEY$:IF Z$="" THEN 450 ELSE END 
em sua clínica particular há alguns anos. 
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Com a ajuda do CP-500, você poderá saber com antecedência os aniversários 
do mês e evitar aqueles esquecimentos tão constrangedores. 





Parabéns no dia certo 





Luiz Gonzaga de Alvarenga 





um aniversário do qual não deveríamos ter esquecido. 

Outras vezes, queremos saber antecipadamente os 
aniversários que irão ocorrer em determinado mês, ou mesmo 
venficar em que data determinada pessoa vai aniversariar. 

Com a ajuda deste pequeno programa, pode-se fazer um 
controle rápido, fácil e eficiente das datas de aniversário que 
nos interessam. Ele permite uma listagem por nomes ou datas 
(meses), podendo controlar um máximo de 40 nomes ou 
datas. 

Como são ainda poucos os usuários de micros que possuem 
disquetes, o programa foi desenvolvido de modo a conter os 
dados nas linhas com instruções DATA. Dessa forma, devem 
ser introduzidas linhas em qualquer posição do programa com 
as informações a serem arquivadas, conforme o modelo 
mostrado na figura 1. 

conveniente colocar os nomes em ordem alfabética, pois 
assim ficará mais fácil procurar na lista que o programa irá 
mostrar no vídeo. 

Caso se deseje, o número de nomes e/ou datas de amversá- 
ro pode ser aumentado, modificando-se as linhas 30, 70, 90, 
110.120, 150 e 360. 

O programa foi elaborado no CP-500 e roda em outros equi- 
pamentos com poucas modificações. 


M uitas vezes ocorre de nos lembrarmos tardiamente de 










Luiz Gonzaga de Alvarenga é Técnico de Telecomunicações e trabalha 
na Embratel, em Goiânia, onde reside. 


SUPRIMENTO 










Controle de Datas de Aniversários 


10 CLS*GOsUB250 








2u cLs 
SU DIMASC44),B8C44) 

AU GOTO70 

S0 PRINT94L006, 7 SFORS=1T030:NEXTSPRINTOL006, “ENTER 
[=1T0S0:NEXT 

60 QS=INKEYS: IFQS=""] HENSOEL 

Z0 FORI=1TO4LREADASCI),BSCI 

BO 1FHJ=1THENHJ=0:G0T0330 





90 FORI=11041 

100 PRINTASCI) 

140 IFI=15THENPRINTOS00S, “(ENTER 
120 IFI=30THENPRINTOLOUS, “(ENTER)”; 2 GOSUBSO 
130 NEXTI 











140 PRINTOP6O, “QUAL O NOME ESCOLHIDO”; F INFUTSS 
150 FORI=1TO4L 

160 1FAS(1)=5STHENGOSUB230 

170 NEXTI 






180 PRINT“OUTRO NOME? (S/N)“; 

PS=INKEYSSIFP$="“THENS9OELSELFPS( “SG” THENENDELSECLS 
PRINT“NOME: “FASCI);3PRINTO - ANIVERSARIO: “;B$(1) 
RETURN 
PRINTAS: 









+” M DATAS DE ANIVERSARIO x * 
+“ TECLE CENTER) P/INICIAR*; 















é UT“QUER LISTAGEM POR 
ONKGO 0340, 
IFK(10RK)260TO2E0 

RETURN 

HJ=1 ERETURN 

INPUT"QUAL O MES (1) a C12)/t 
IFL)=10THENPL =1 

CES=STR$CL) 

FORU=1 TO44 

IFPL=1THENI9O 
IFMIOSCB$CU),4,4)="1THENNEXTU 
IFNIDSCB$CU),5,1)=H1DSC 1) THENGOSUBAZO 
IFMIDSCBSCU),4,2)=MIDS( )THENGOSUB420 
NEXTU 

G0T0430 
PRINTASCU) BS CU) RETURN 
PRINTIPRINTOMAIS DATAS? (S/N) 


NOMES <1) OU POR DATAS 
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É COISA SÉRIA 





Discos Magnéticos: 5 Mb, 16 Mb, 80 Mb etc 


e Fita E pense 600, 12006 2400 Pés 
* Fita CARBOFITAS p/Impressoras: Globus M 200 — B 300/600 


C ( É | I À | L) À I À * Matenha o seu computador bem alimentado adquirindo produtos de qualidade consagrada. 





ETIQUETAS PIMACO — PIMATAB 


GR. 207 (021) 263-5876 











Av. PRESIDENTE VARGAS. 482 TELS 
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253-1120 - RJ 


Com. e Megresentaçãos Ltda. Diskettes: 5 1/4, e 8 Polegadas — Simples e Dupla Face * Fita p/Impressoras: Elebra, Digilab, Diablo, Centronic etc. 


* Cartucho Cobra 400 
* Pastas e Formulários Continuos. 





sSFOR 









ASSINKEYS E IFAS=""THENAADELSEIF AS () “5” THENENDELSECLS:PL=016 





] 
=. 


















Inaugurada recentemente em Porto Alegre, a Computchê traz uma proposta 


séria para aplicação dos micros no Brasil. 





Computchê, uma loja trilegal! 


cupando uma área com cerca 
de 350 metros quadrados na 
Av. Independência — 599, a 


Computchê, uma loja do Grupo LHM 
Software & Hardware, está dividida em 
três departamentos: vendas de equipa- 
mentos, software, periféricos, acessó- 
rios, livros e revistas especializadas; as- 
sessoria às empresas na implantação de 
micro-sistemas; e um terceiro setor de- 
dicado à formação profissional, com 
cursos de digitação /operação; programa- 

o em linguagens BASIC, COBOL e 

ORTRAN e ainda palestras e seminá- 
rios. 

O Diretor-Presidente do Grupo LHM, 
Luís Henrique Mignone, ao considerar o 
mercado gaúcho altamente promissor e 
receptivo às inovações, afirma ser a 
Computchê não apenas mais uma loja 
de microcomputadores, mas sim o novo 
ponto de encontro da comunidade de 
Informática de Porto Alegre. “Para isso, 
estamos utilizando um marketing bas- 
tante agressivo, oferecendo ótima quali- 
dade dos produtos e orientação ao clien- 
te na hora da compra”, diz Luís Henri- 
que. 


OS DEPARTAMENTOS 


O departamento de vendas da Com- 
putchê comercializa tanto os produtos 
fabricados pela LHM Software e Hard- 
ware como os equipamentos da Unitron, 
Prológica, Polymax, Kemitron, Dígitus e 
Microdigital. Na área de software, são 
oferecidos os seguintes pacotes: Conta- 
bilidade Geral, PERT/CPM, Arquivos, 
Mala Direta, Visiplot/Visitrend, Editor 
de Textos, Adm. Imobiliária, VisiCalc, 
Folha de Pagamento, Consultor Médico, 
Consultor Odontológico, entre outros. 

“Como quase tudo o que nós temos 
no Brasil, em termos de acessórios pa- 
ra o computador, é importado ou con- 
trabandeado, a LHM decidiu se lançar 
na fabricação de acessórios”, diz Luís 
Henrique. A Computché passará a co- 
mercializar Placas de Expansão de 16, 
32, 64e 128XK para a linha Apple; Placa 
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Videx; Buffer de 32, 64 e 128 K para 
impressoras; Teclado Numérico para 
Apple; Ventilador para CPU; Ventilador 
para Drive e joystick. 

A Computchê mantém, junto com a 
equipe de vendas, uma outra de consul- 
tores especializados para orientar as em- 
presas na implantação de micro-siste- 
mas. Primeiro, para analisar qual exata- 
mente o equipamento adequado às ne- 
cessidades do cliente. Segundo, para 
constatar se existem no mercado pro- 
gramas disponíveis para aquele tipo de 
aquisição. 

Segundo Luís Henrique, a Comput- 
chê é a única loja em todo Brasil que 
oferece seis meses de garantia na compra 
de qualquer produto. O cliente tem até 
36 meses para pagar; na compra de um 
equipamento ganha um programa aplica- 
tivo de bonificação e se levar a linha 
Software LHM, tem 10% de desconto. 





A Computche é o mais novo paro de 
encontro da comunidade de Informáti- 
ca, em Porto Alegre. 


MUDANÇA DE FILOSOFIA 


Para o Presidente do grupo LHM, a 
maior preocupação da Computchê é 
com a qualidade dos produtos que co- 
mercializa. O objetivo do grupo é esta- 
belecer no mercado gaúcho um padrão 
de qualidade confiável para o cliente. 
Todos os produtos comercializados na 
loja e que não são fabricados pela LHM 
passam por um criterioso sistema de 
seleção. 

Outra preocupação do grupo refere- 
se à forma como foram apresentados os 
micros no Brasil. “Houve um erro de 
marketing em tudo isso”, afirma Luís 
Henrique. “Nós vemos fabricantes lan- 
çando os micros como máquinas de jo- 
guinhos. Apresentam o micro como um 
flipper e depois dizem que ele também 
faz coisas sérias. É contra este tipo de 
mentalidade que nós estamos lutando, 
produzinde uma linha de aplicação séria 
para o computador”. A Computché 
vende 99% de aplicativos, deixando os 
jogos em segundo plano. 

O Presidente do grupo LHM não vê 
com muito otimismo o setor de Infor- 
mática, no Brasil. Para ele, muitas coi- 
sas nessa área estão erradas e desajus- 
tadas. “Trabalhar na área de software, 
neste país, com os piratas à solta, é 
brincadeira. Lamento que uma área tão 
importante esteja relegada ao jeitinho 
brasileiro. A SEI é um órgão acéfalo e 
nós não temos um foro para discutir 
qualquer tipo de assunto”. 

Luís Henrique Mignone acredita que, 
embora o mercado de micros no Brasil 
seja muito promissor, a maior parte dos 
que estão se lançando não terão estrutu- 
ra para prosseguir. “Serão necessários al- 
tos investimentos, boa dose de profissio- 
nalismo e muito jogo de cintura para 


não sucumbir”, conclui ele. E 





Texto: Graça Santos 
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